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/IO.hs | |
parent | 824be5bfb8870052e5726238169f738441426da1 (diff) |
fix build with old ghc
Diffstat (limited to 'P2P/IO.hs')
-rw-r--r-- | P2P/IO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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") |