diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-18 15:37:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-18 15:37:57 -0400 |
| commit | 2422fc199fb859b502ab61cbc0d64604b93508a9 (patch) | |
| tree | c702ef20c0ffd0b14327b704a6a8267424fe72c3 /Assistant/Threads/TransferScanner.hs | |
| parent | 3e369ace228e984224c417c6f3524f0b4f5900ac (diff) | |
check and drop unwanted content from remotes after receiving a transfer
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 5eb3784bd..4cd6915f5 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -125,7 +125,7 @@ expensiveScan st dstatus transferqueue rs = unless onlyweb $ do syncrs <- liftIO $ syncRemotes <$> getDaemonStatus dstatus present <- inAnnex key - handleDrops' locs syncrs present f key + handleDrops locs syncrs present f key let slocs = S.fromList locs let use a = return $ catMaybes $ map (a key slocs) syncrs |