From 487bdf0e24d34135da2e53bbcd2c97d892ed817a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 23 Aug 2012 13:42:13 -0400 Subject: add transfer scanned flag files --- Assistant/Threads/TransferScanner.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Assistant') diff --git a/Assistant/Threads/TransferScanner.hs b/Assistant/Threads/TransferScanner.hs index 2cba0b2a7..6bef2a6f1 100644 --- a/Assistant/Threads/TransferScanner.hs +++ b/Assistant/Threads/TransferScanner.hs @@ -44,6 +44,7 @@ scan st dstatus transferqueue r = do g <- runThreadState st $ fromRepo id files <- LsFiles.inRepo [] g go files + inRepo $ transferScanned $ uuid r return True where go [] = return () -- cgit v1.2.3