fix comparison

With this a PUT to two remotes that have different partial amounts
transferred works reliably. I'm not sure though that it doesn't have
fencepost errors.

diff --git a/P2P/Proxy.hs b/P2P/Proxy.hs
index 8edba3c79df60cc4aee33ec91df0b802e1e0614c..fbf8520725609d92ce45eca4b5ae10179938b5c8 100644 (file)
--- a/P2P/Proxy.hs
+++ b/P2P/Proxy.hs
@@ -411,7 +411,7 @@ proxy proxydone proxymethods servermode (ClientSide clientrunst clientconn) remo
                                        then runRemoteSideOrSkipFailed remoteside $ do
                                                net $ sendBytes (Len chunklen) chunk nullMeterUpdate
                                                return r
-                                       else if (n' <= remoteoffset)
+                                       else if (n' > remoteoffset)
                                                then do
                                                        let chunkoffset = remoteoffset - n
                                                        let subchunklen = chunklen - chunkoffset