add transfer scanned flag files

2012-08-23 13:42:13 -04:00 · 2012-08-23 13:42:13 -04:00 · 487bdf0e24
commit 487bdf0e24
parent ab8cb05989
3 changed files with 30 additions and 6 deletions
--- 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 ()