add transfer scanned flag files

This commit is contained in:
Joey Hess 2012-08-23 13:42:13 -04:00
parent ab8cb05989
commit 487bdf0e24
3 changed files with 30 additions and 6 deletions

View file

@ -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 ()