From b028b1a3795fe332843d92423f529db0d0825889 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 26 Jul 2024 13:55:14 -0400 Subject: [PATCH] oops --- P2P/Proxy.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/P2P/Proxy.hs b/P2P/Proxy.hs index e78ef5a12e..5a7231b27d 100644 --- a/P2P/Proxy.hs +++ b/P2P/Proxy.hs @@ -614,13 +614,13 @@ proxyRequest proxydone proxyparams requestcomplete requestmessage protoerrhandle y $ net $ sendBytes len b nullMeterUpdate relayDATAFinish x y sendsuccessfailure () - | proxyProtocolVersion proxyparams == ProtocolVersion 0 = sendsuccessfailure + | proxyClientProtocolVersion proxyparams == ProtocolVersion 0 = sendsuccessfailure -- Protocol version 1 has a VALID or -- INVALID message after the data. | otherwise = relayonemessage x y (\_ () -> sendsuccessfailure) relayDATAFinishMulti k rs - | proxyProtocolVersion proxyparams == ProtocolVersion 0 = + | proxyClientProtocolVersion proxyparams == ProtocolVersion 0 = finish $ net receiveMessage | otherwise = flip protoerrhandler (client $ net $ receiveMessage) $