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

fix recording present on the proxy when proxying DATA-PRESENT

Browse source 
Apparently the protoerrhandler parameter never runs. Also the const
typo prevented the type checker from complaining that relayPUTRecord was
being called with 1 less parameter than needed.

So move the relayPUTRecord out of it.
This commit is contained in:
Joey Hess 2024-10-30 13:09:50 -04:00
parent ccbc5189b5
commit 54dc1d6f6e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
P2P/Proxy.hs
View file

@ -688,8 +688,9 @@ proxyRequest proxydone proxyparams requestcomplete requestmessage protoerrhandle
handlePutMulti_DATA_PRESENT _ _ _ = protoerr handlePutMulti_DATA_PRESENT _ _ _ = protoerr
handlePut_DATA_PRESENT remoteside k DATA_PRESENT = handlePut_DATA_PRESENT remoteside k DATA_PRESENT =
getresponse (runRemoteSide remoteside) DATA_PRESENT $ \resp -> getresponse (runRemoteSide remoteside) DATA_PRESENT $ \resp -> do
protoerrhandler (const (relayPUTRecord k remoteside) >> requestcomplete) $ void $ relayPUTRecord k remoteside resp
protoerrhandler requestcomplete $
client $ net $ sendMessage resp client $ net $ sendMessage resp
handlePut_DATA_PRESENT _ _ _ = protoerr handlePut_DATA_PRESENT _ _ _ = protoerr