diff options
Diffstat (limited to 'P2P/Annex.hs')
| -rw-r--r-- | P2P/Annex.hs | 2 |
1 files changed, 1 insertions, 1 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 |