diff options
author | 2014-01-23 16:51:16 -0400 | |
---|---|---|
committer | 2014-01-23 16:51:16 -0400 | |
commit | 8d1787a73ddfb189005d80998503fae06b49c0f1 (patch) | |
tree | 15218a6dc0d15f4acca9e489301a055fe6c9ed8b /Assistant/Threads/Committer.hs | |
parent | 5112650348f6bf04cebe1fb97ed900b24e4aaac1 (diff) |
try to drop unused object if it does not need to be transferred anywhere
Diffstat (limited to 'Assistant/Threads/Committer.hs')
-rw-r--r-- | Assistant/Threads/Committer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 2ddaade2f..e8d17b13f 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -464,7 +464,7 @@ checkChangeContent change@(Change { changeInfo = i }) = Nothing -> noop Just k -> whenM (scanComplete <$> getDaemonStatus) $ do present <- liftAnnex $ inAnnex k - if present + void $ if present then queueTransfers "new file created" Next k (Just f) Upload else queueTransfers "new or renamed file wanted" Next k (Just f) Download handleDrops "file renamed" present k (Just f) Nothing |