From 415b2c53ed7a3869a8bd96890c78fe578c78fa4d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Dec 2014 16:38:52 -0400 Subject: [PATCH] fix OSX build warning --- Utility/DirWatcher/FSEvents.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Utility/DirWatcher/FSEvents.hs b/Utility/DirWatcher/FSEvents.hs index 7d755518f6..93d4a24aeb 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 handle + eventStreamCreate [dir] 1.0 True True True go where - handle evt + go evt | ignoredPath ignored (eventPath evt) = noop | otherwise = do {- More than one flag may be set, if events occurred