diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index b3db7513c0..9971762f59 100644
--- a/P2P/Annex.hs
+++ b/P2P/Annex.hs
@@ -34,7 +34,7 @@ runFullProto :: RunMode -> P2PConnection -> Proto a -> Annex (Either String a)
 runFullProto runmode conn = go
   where
 	go :: RunProto Annex
-	go (Pure v) = pure (Right v)
+	go (Pure v) = return (Right v)
 	go (Free (Net n)) = runNet conn go n
 	go (Free (Local l)) = runLocal runmode go l
 
diff --git a/P2P/IO.hs b/P2P/IO.hs
index bb93528a65..3e0999775f 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")