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
-> IO (Either String (Role, [Capability]))
handshake selectrole selectcapability input output =
getpkt pktRole $ \role ->
checkversion $ do
case selectrole role of
Left e -> return (Left e)
Right myrole -> sendpkt rolePkt myrole $
sendpkt versionPkt (Version "2") $
exchangecaps $ \mycaps -> return $
Right (myrole, mycaps)
getpkt pktRole $ \role -> checkversion $
case selectrole role of
Left e -> return (Left e)
Right myrole -> sendpkt rolePkt myrole $
sendpkt versionPkt (Version "2") $
exchangecaps $ \mycaps -> return $
Right (myrole, mycaps)
where
protoerr e = return $ Left $ e ++ " from git in protocol handshake"