diff options
Diffstat (limited to 'RemoteDaemon/Transport/Tor.hs')
-rw-r--r-- | RemoteDaemon/Transport/Tor.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/RemoteDaemon/Transport/Tor.hs b/RemoteDaemon/Transport/Tor.hs index afa249b33..b0fa3c189 100644 --- a/RemoteDaemon/Transport/Tor.hs +++ b/RemoteDaemon/Transport/Tor.hs @@ -129,7 +129,7 @@ serveClient th u r q = bracket setup cleanup start -- Connect to peer's tor hidden service. transport :: Transport -transport (RemoteRepo r _) url@(RemoteURI uri) th ichan ochan = +transport (RemoteRepo r gc) url@(RemoteURI uri) th ichan ochan = case unformatP2PAddress (show uri) of Nothing -> return () Just addr -> robustConnection 1 $ do @@ -168,7 +168,7 @@ transport (RemoteRepo r _) url@(RemoteURI uri) th ichan ochan = v <- runNetProto conn P2P.notifyChange case v of Right (Just (ChangedRefs shas)) -> do - whenM (checkNewShas th shas) $ + whenM (checkShouldFetch gc th shas) $ fetch handlepeer conn _ -> return ConnectionClosed |