From 212e5d04e6ec5c023897615f09dec2e6de1d71c9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Jul 2024 13:54:37 -0400 Subject: [PATCH] oops --- P2P/Protocol.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/P2P/Protocol.hs b/P2P/Protocol.hs index aec03c3157..1f5b0c76a3 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 _) -> net $ setProtocolVersion 0 + Just (ERROR _) -> net $ setProtocolVersion (ProtocolVersion 0) _ -> net $ sendMessage (ERROR "expected VERSION") sendBypass :: Bypass -> Proto ()