1 files changed, 1 insertions, 1 deletions
diff --git a/P2P/IO.hs b/P2P/IO.hs
index bb93528a6..3e0999775 100644
--- a/P2P/IO.hs
+++ b/P2P/IO.hs
@@ -85,7 +85,7 @@ runNetProto :: P2PConnection -> Proto a -> IO (Either String a)
 runNetProto conn = go
   where
 	go :: RunProto IO
-	go (Pure v) = pure (Right v)
+	go (Pure v) = return (Right v)
 	go (Free (Net n)) = runNet conn go n
 	go (Free (Local _)) = return (Left "unexpected annex operation attempted")