diff options
author | Joey Hess <joeyh@fischer.debian.org> | 2012-06-18 20:33:27 +0000 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-06-18 16:34:08 -0400 |
commit | d680ff7ef06a3b0c8310836b03446e89d0ff9764 (patch) | |
tree | e0f907503d704057ab0edf3a846cef9d7eaade36 /Assistant/Watcher.hs | |
parent | 90d565149abd7d752e22beb4aa57bf99522e5851 (diff) |
kqueue code compiles on debian kfreebsd
Diffstat (limited to 'Assistant/Watcher.hs')
-rw-r--r-- | Assistant/Watcher.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Assistant/Watcher.hs b/Assistant/Watcher.hs index 52c3780ab..13c27d080 100644 --- a/Assistant/Watcher.hs +++ b/Assistant/Watcher.hs @@ -84,10 +84,12 @@ watchThread st dstatus changechan = withINotify $ \i -> do } #else #ifdef WITH_KQUEUE -watchThread st dstatus changechan = forever $ do +watchThread st dstatus changechan = do dirs <- scanRecursive "." ignored - changeddir <- waitChange dirs - print $ "detected a change in " ++ show changeddir + kqueue <- initKqueue dirs + forever $ do + changeddir <- waitChange kqueue + print $ "detected a change in " ++ show changeddir #else watchThread = undefined #endif /* WITH_KQUEUE */ |