diff options
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 46695469e..5a6871fdb 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -24,6 +24,7 @@ import qualified Remote import qualified Types.Remote as Remote import Utility.ThreadScheduler import Utility.NotificationBroadcaster +import Utility.Batch import qualified Git.LsFiles as LsFiles import qualified Backend import Annex.Content @@ -114,7 +115,7 @@ failedTransferScan r = do - since we need to look at the locations of all keys anyway. -} expensiveScan :: UrlRenderer -> [Remote] -> Assistant () -expensiveScan urlrenderer rs = unless onlyweb $ do +expensiveScan urlrenderer rs = unless onlyweb $ batch <~> do debug ["starting scan of", show visiblers] unwantedrs <- liftAnnex $ S.fromList |