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

improve layout

Browse source
This commit is contained in:
Joey Hess 2018-08-10 16:26:31 -04:00
parent c6884989dc
commit 65de44aa13
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Git/Protocol/LongRunningProcess.hs
View file

@ -75,14 +75,13 @@ handshake
-> Handle -- ^ handle to send data to git -> Handle -- ^ handle to send data to git
-> IO (Either String (Role, [Capability])) -> IO (Either String (Role, [Capability]))
handshake selectrole selectcapability input output = handshake selectrole selectcapability input output =
getpkt pktRole $ \role -> getpkt pktRole $ \role -> checkversion $
checkversion $ do case selectrole role of
case selectrole role of Left e -> return (Left e)
Left e -> return (Left e) Right myrole -> sendpkt rolePkt myrole $
Right myrole -> sendpkt rolePkt myrole $ sendpkt versionPkt (Version "2") $
sendpkt versionPkt (Version "2") $ exchangecaps $ \mycaps -> return $
exchangecaps $ \mycaps -> return $ Right (myrole, mycaps)
Right (myrole, mycaps)
where where
protoerr e = return $ Left $ e ++ " from git in protocol handshake" protoerr e = return $ Left $ e ++ " from git in protocol handshake"