diff options
author | 2014-03-05 17:44:14 -0400 | |
---|---|---|
committer | 2014-03-05 17:44:14 -0400 | |
commit | 1db1469905cd08da2b4a2f5e310437ff5233f286 (patch) | |
tree | dce09d0ef76f95819bfb8f3d2640c4121475c5fe /Utility/DirWatcher/FSEvents.hs | |
parent | f86866c6130ad7b8eb1433c976e4c94b1f17e30d (diff) |
annex.startupscan can be set to false to disable the assistant's startup scan.
Diffstat (limited to 'Utility/DirWatcher/FSEvents.hs')
-rw-r--r-- | Utility/DirWatcher/FSEvents.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Utility/DirWatcher/FSEvents.hs b/Utility/DirWatcher/FSEvents.hs index db6ac0434..26e1f7671 100644 --- a/Utility/DirWatcher/FSEvents.hs +++ b/Utility/DirWatcher/FSEvents.hs @@ -14,8 +14,8 @@ import System.OSX.FSEvents import qualified System.Posix.Files as Files import Data.Bits ((.&.)) -watchDir :: FilePath -> (FilePath -> Bool) -> WatchHooks -> IO EventStream -watchDir dir ignored hooks = do +watchDir :: FilePath -> (FilePath -> Bool) -> Bool -> WatchHooks -> IO EventStream +watchDir dir ignored scanevents hooks = do unlessM fileLevelEventsSupported $ error "Need at least OSX 10.7.0 for file-level FSEvents" scan dir @@ -79,9 +79,11 @@ watchDir dir ignored hooks = do Nothing -> noop Just s | Files.isSymbolicLink s -> - runhook addSymlinkHook ms + when scanevents $ + runhook addSymlinkHook ms | Files.isRegularFile s -> - runhook addHook ms + when scanevents $ + runhook addHook ms | otherwise -> noop where |