webapp and assistant glacier support

2012-11-24 16:30:15 -04:00 · 2012-11-24 16:30:15 -04:00 · 463cf58140
commit 463cf58140
parent c282c8b492
23 changed files with 321 additions and 185 deletions
--- a/Assistant/Threads/TransferScanner.hs
+++ b/Assistant/Threads/TransferScanner.hs
@ -119,7 +119,7 @@ expensiveScan rs = unless onlyweb $ do
 			locs <- loggedLocations key
 			present <- inAnnex key

-			handleDrops' locs syncrs present key (Just f)
+			handleDrops' locs syncrs present key (Just f) Nothing

 			let slocs = S.fromList locs
 			let use a = return $ catMaybes $ map (a key slocs) syncrs