diff options
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Threads/Watcher.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index a69ab6a09..1c5d7206b 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -69,7 +69,6 @@ watchThread = NamedThread "Watcher" $ do errhook <- hook onErr let hooks = mkWatchHooks { addHook = addhook - , modifyHook = addhook , delHook = delhook , addSymlinkHook = addsymlinkhook , delDirHook = deldirhook @@ -143,10 +142,10 @@ onAddDirect file fs = do case (v, fs) of (Just key, Just filestatus) -> ifM (liftAnnex $ changedFileStatus key filestatus) - ( noChange - , do + ( do liftAnnex $ changedDirect key file pendingAddChange file + , noChange ) _ -> pendingAddChange file |