diff options
author | 2012-10-14 14:47:01 -0400 | |
---|---|---|
committer | 2012-10-14 14:50:03 -0400 | |
commit | 83c8c3104583d6fea4c44751b39191b1f4af443f (patch) | |
tree | 670ee370decd2e9e4fca38f4f66077e77c92dce5 /Assistant/Threads/TransferScanner.hs | |
parent | ec23c75632cf1b8e4e3d5049a2c0a7623a9ae958 (diff) |
better variable name
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
-rw-r--r-- | Assistant/Threads/TransferScanner.hs | 6 |
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) |