mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old ghc

Browse source
This commit is contained in:
Joey Hess 2016-12-10 11:12:18 -04:00
parent c2d9f4397e
commit 16c6333f09
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
P2P/Annex.hs
View file

@ -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

2
P2P/IO.hs
View file

@ -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")