From de7730f51f36092989b1eb131a92001533c8df9b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Jul 2024 13:24:56 -0400 Subject: [PATCH] fix setting protocol version for v0 server Before it was leaving the protocol version at the default, when it was actually v0. v0 has only ever been used over tor, which is probably why this bug was never noticed. --- P2P/Protocol.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/P2P/Protocol.hs b/P2P/Protocol.hs index eccca1fef7..aec03c3157 100644 --- a/P2P/Protocol.hs +++ b/P2P/Protocol.hs @@ -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 _) -> return () + Just (ERROR _) -> net $ setProtocolVersion 0 _ -> net $ sendMessage (ERROR "expected VERSION") sendBypass :: Bypass -> Proto ()