diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-23 13:42:13 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-23 13:42:26 -0400 |
| commit | 487bdf0e24d34135da2e53bbcd2c97d892ed817a (patch) | |
| tree | 635c3c89b2440917c1eec2938df286cf8838055b /Assistant | |
| parent | ab8cb0598927414aa8eef0af6ea3da20aba9b78b (diff) | |
add transfer scanned flag files
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/TransferScanner.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 () |