fix recording present on the proxy when proxying DATA-PRESENT

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.

diff --git a/P2P/Proxy.hs b/P2P/Proxy.hs
index 3519fa64ed549454c0e6b63d993e520ff458c614..e6449c39c67611093a45afcfce20c71e5ec177e2 100644 (file)
--- a/P2P/Proxy.hs
+++ b/P2P/Proxy.hs
@@ -688,8 +688,9 @@ proxyRequest proxydone proxyparams requestcomplete requestmessage protoerrhandle
        handlePutMulti_DATA_PRESENT _ _ _ = protoerr
 
        handlePut_DATA_PRESENT remoteside k DATA_PRESENT =
-               getresponse (runRemoteSide remoteside) DATA_PRESENT $ \resp ->
-                       protoerrhandler (const (relayPUTRecord k remoteside) >> requestcomplete) $
+               getresponse (runRemoteSide remoteside) DATA_PRESENT $ \resp -> do
+                       void $ relayPUTRecord k remoteside resp
+                       protoerrhandler requestcomplete $
                                client $ net $ sendMessage resp
        handlePut_DATA_PRESENT _ _ _ = protoerr