diff options
Diffstat (limited to 'Utility/DirWatcher.hs')
-rw-r--r-- | Utility/DirWatcher.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/DirWatcher.hs b/Utility/DirWatcher.hs index e4ee83191..b70e84b77 100644 --- a/Utility/DirWatcher.hs +++ b/Utility/DirWatcher.hs @@ -102,8 +102,8 @@ watchDir dir prune hooks runstartup = do #if WITH_KQUEUE type DirWatcherHandle = ThreadId watchDir :: FilePath -> Pruner -> WatchHooks -> (IO Kqueue.Kqueue -> IO Kqueue.Kqueue) -> IO DirWatcherHandle -watchDir dir ignored hooks runstartup = do - kq <- runstartup $ Kqueue.initKqueue dir ignored +watchDir dir prune hooks runstartup = do + kq <- runstartup $ Kqueue.initKqueue dir prune forkIO $ Kqueue.runHooks kq hooks #else type DirWatcherHandle = () |