oops

diff --git a/P2P/Proxy.hs b/P2P/Proxy.hs
index e78ef5a12ea135e967b5ee29e4e2443282754b82..5a7231b27dab3f9a63587c9728189b5bdef70282 100644 (file)
--- 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) $