diff options
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
| -rw-r--r-- | Assistant/Threads/Watcher.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 8c77fa64a..be82a105f 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -181,11 +181,11 @@ onAddDirect file fs = do v <- liftAnnex $ catKeyFile file case (v, fs) of (Just key, Just filestatus) -> - ifM (liftAnnex $ changedFileStatus key filestatus) - ( do + ifM (liftAnnex $ sameFileStatus key filestatus) + ( noChange + , do liftAnnex $ changedDirect key file pendingAddChange file - , noChange ) _ -> pendingAddChange file |