diff options
-rw-r--r-- | Utility/INotify.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Utility/INotify.hs b/Utility/INotify.hs index 7b5a1fbea..7c495fc67 100644 --- a/Utility/INotify.hs +++ b/Utility/INotify.hs @@ -50,6 +50,9 @@ watchDir :: INotify -> FilePath -> (FilePath -> Bool) -> WatchHooks -> IO () watchDir i dir ignored hooks | ignored dir = noop | otherwise = do + case errHook hooks of + Nothing -> noop + Just hook -> tooManyWatches hook dir -- Use a lock to make sure events generated during initial -- scan come before real inotify events. lock <- newLock |