summaryrefslogtreecommitdiff
path: root/Assistant/Threads/TransferScanner.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-14 14:47:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-14 14:50:03 -0400
commit83c8c3104583d6fea4c44751b39191b1f4af443f (patch)
tree670ee370decd2e9e4fca38f4f66077e77c92dce5 /Assistant/Threads/TransferScanner.hs
parentec23c75632cf1b8e4e3d5049a2c0a7623a9ae958 (diff)
better variable name
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
-rw-r--r--Assistant/Threads/TransferScanner.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs
index 8f44f24d1..bc5837529 100644
--- a/Assistant/Threads/TransferScanner.hs
+++ b/Assistant/Threads/TransferScanner.hs
@@ -61,7 +61,7 @@ transferScannerThread st dstatus scanremotes transferqueue = thread $ do
- lost.
-}
startupScan = addScanRemotes scanremotes True
- =<< knownRemotes <$> getDaemonStatus dstatus
+ =<< syncRemotes <$> getDaemonStatus dstatus
{- This is a cheap scan for failed transfers involving a remote. -}
failedTransferScan :: ThreadState -> DaemonStatusHandle -> TransferQueue -> Remote -> IO ()
@@ -117,8 +117,8 @@ expensiveScan st dstatus transferqueue rs = unless onlyweb $ do
{- Queue transfers from any known remote. The known
- remotes may have changed since this scan began. -}
let use a = do
- knownrs <- liftIO $ knownRemotes <$> getDaemonStatus dstatus
- return $ catMaybes $ map (a key locs) knownrs
+ syncrs <- liftIO $ syncRemotes <$> getDaemonStatus dstatus
+ return $ catMaybes $ map (a key locs) syncrs
ifM (inAnnex key)
( filterM (wantSend (Just f) . Remote.uuid . fst)
=<< use (check Upload False)