This commit is contained in:
Joey Hess 2024-07-26 13:54:37 -04:00
parent ad025b8e5e
commit 212e5d04e6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -377,7 +377,7 @@ negotiateProtocolVersion preferredversion = do
case r of
Just (VERSION v) -> net $ setProtocolVersion v
-- Old server doesn't know about the VERSION command.
Just (ERROR _) -> net $ setProtocolVersion 0
Just (ERROR _) -> net $ setProtocolVersion (ProtocolVersion 0)
_ -> net $ sendMessage (ERROR "expected VERSION")
sendBypass :: Bypass -> Proto ()