fix OSX build warning
This commit is contained in:
parent
da1d9d500d
commit
415b2c53ed
1 changed files with 2 additions and 2 deletions
|
@ -19,9 +19,9 @@ watchDir dir ignored scanevents hooks = do
|
||||||
unlessM fileLevelEventsSupported $
|
unlessM fileLevelEventsSupported $
|
||||||
error "Need at least OSX 10.7.0 for file-level FSEvents"
|
error "Need at least OSX 10.7.0 for file-level FSEvents"
|
||||||
scan dir
|
scan dir
|
||||||
eventStreamCreate [dir] 1.0 True True True handle
|
eventStreamCreate [dir] 1.0 True True True go
|
||||||
where
|
where
|
||||||
handle evt
|
go evt
|
||||||
| ignoredPath ignored (eventPath evt) = noop
|
| ignoredPath ignored (eventPath evt) = noop
|
||||||
| otherwise = do
|
| otherwise = do
|
||||||
{- More than one flag may be set, if events occurred
|
{- More than one flag may be set, if events occurred
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue