diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-12-10 11:12:18 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-12-10 11:12:18 -0400 |
commit | e242ea2be61ad30c5ecc1db4dfdf97de1265dee7 (patch) | |
tree | f862fbed8f67c8bf89b1de0425adc348730f56ca /P2P | |
parent | 824be5bfb8870052e5726238169f738441426da1 (diff) |
fix build with old ghc
Diffstat (limited to 'P2P')
-rw-r--r-- | P2P/Annex.hs | 2 | ||||
-rw-r--r-- | P2P/IO.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/P2P/Annex.hs b/P2P/Annex.hs index b3db7513c..9971762f5 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 @@ -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") |