diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2014-12-29 17:35:19 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-29 17:35:19 -0400 |
| commit | 2faa44e9bcd774ea29757979e19d5b81b7d6c676 (patch) | |
| tree | 5811d63caf41a5a4686e18b3de03036274f10313 /Utility/DirWatcher/FSEvents.hs | |
| parent | e79780c0cac64c7b74754e47fc066aa0fc104345 (diff) | |
one more warning
Diffstat (limited to 'Utility/DirWatcher/FSEvents.hs')
| -rw-r--r-- | Utility/DirWatcher/FSEvents.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/DirWatcher/FSEvents.hs b/Utility/DirWatcher/FSEvents.hs index 93d4a24ae..e16de7b94 100644 --- a/Utility/DirWatcher/FSEvents.hs +++ b/Utility/DirWatcher/FSEvents.hs @@ -19,9 +19,9 @@ watchDir dir ignored scanevents hooks = do unlessM fileLevelEventsSupported $ error "Need at least OSX 10.7.0 for file-level FSEvents" scan dir - eventStreamCreate [dir] 1.0 True True True go + eventStreamCreate [dir] 1.0 True True True dispatch where - go evt + dispatch evt | ignoredPath ignored (eventPath evt) = noop | otherwise = do {- More than one flag may be set, if events occurred |