mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions 1

oops

Browse source
This commit is contained in:
Joey Hess 2024-07-26 13:55:14 -04:00
parent 212e5d04e6
commit b028b1a379
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
P2P/Proxy.hs
View file

@ -614,13 +614,13 @@ proxyRequest proxydone proxyparams requestcomplete requestmessage protoerrhandle
y $ net $ sendBytes len b nullMeterUpdate y $ net $ sendBytes len b nullMeterUpdate
relayDATAFinish x y sendsuccessfailure () relayDATAFinish x y sendsuccessfailure ()
| proxyProtocolVersion proxyparams == ProtocolVersion 0 = sendsuccessfailure | proxyClientProtocolVersion proxyparams == ProtocolVersion 0 = sendsuccessfailure
-- Protocol version 1 has a VALID or -- Protocol version 1 has a VALID or
-- INVALID message after the data. -- INVALID message after the data.
| otherwise = relayonemessage x y (\_ () -> sendsuccessfailure) | otherwise = relayonemessage x y (\_ () -> sendsuccessfailure)
relayDATAFinishMulti k rs relayDATAFinishMulti k rs
| proxyProtocolVersion proxyparams == ProtocolVersion 0 = | proxyClientProtocolVersion proxyparams == ProtocolVersion 0 =
finish $ net receiveMessage finish $ net receiveMessage
| otherwise = | otherwise =
flip protoerrhandler (client $ net $ receiveMessage) $ flip protoerrhandler (client $ net $ receiveMessage) $