diff options
author | Joey Hess <joey@kitenet.net> | 2013-03-01 15:58:44 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-03-01 15:58:44 -0400 |
commit | 8909fa66ce0c04094d13fc21db76bbf7700f9d6e (patch) | |
tree | 55e9bf5078a77ea1e111e2284e10473998418968 /Assistant/Threads/TransferScanner.hs | |
parent | bc1d282f5f7a87f61dd5beab7369d0739b7dbaed (diff) |
add additional debug info about reasons for drops
Diffstat (limited to 'Assistant/Threads/TransferScanner.hs')
-rw-r--r-- | Assistant/Threads/TransferScanner.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 198daca94..c6bb8c586 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -115,12 +115,12 @@ expensiveScan rs = unless onlyweb $ do {- The syncable remotes may have changed since this - scan began. -} syncrs <- syncDataRemotes <$> getDaemonStatus + locs <- liftAnnex $ loggedLocations key + present <- liftAnnex $ inAnnex key + handleDropsFrom locs syncrs + "expensive scan found too many copies of object" + present key (Just f) Nothing liftAnnex $ do - locs <- loggedLocations key - present <- inAnnex key - - handleDropsFrom locs syncrs present key (Just f) Nothing - let slocs = S.fromList locs let use a = return $ catMaybes $ map (a key slocs) syncrs if present |