mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

one more warning

Browse source
This commit is contained in:
Joey Hess 2014-12-29 17:35:19 -04:00
parent c9a3e80d32
commit 66cdc4d612
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/DirWatcher/FSEvents.hs
View file

@ -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 go eventStreamCreate [dir] 1.0 True True True dispatch
where where
go evt dispatch 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