add transfer scanned flag files
This commit is contained in:
parent
ab8cb05989
commit
487bdf0e24
3 changed files with 30 additions and 6 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue