improve layout

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

View file

@ -75,8 +75,7 @@ handshake
-> Handle -- ^ handle to send data to git
-> IO (Either String (Role, [Capability]))
handshake selectrole selectcapability input output =
getpkt pktRole $ \role ->
checkversion $ do
getpkt pktRole $ \role -> checkversion $
case selectrole role of
Left e -> return (Left e)
Right myrole -> sendpkt rolePkt myrole $