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

fix build

Browse source
This commit is contained in:
Joey Hess 2012-06-19 01:52:07 +00:00 • committed by Joey Hess
parent 5e9fdac92f
commit 2d457bf8df
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
Assistant/Watcher.hs
View file

@ -34,7 +34,7 @@ import Utility.Inotify
import System.INotify
#endif
#ifdef WITH_KQUEUE
import Utility.Kqueue
import qualified Utility.Kqueue as Kqueue
#endif
checkCanWatch :: Annex ()
@ -84,12 +84,12 @@ watchThread st dstatus changechan = withINotify $ \i -> do
}
#else
#ifdef WITH_KQUEUE
watchThread st dstatus changechan = do
dirs <- scanRecursive "." ignored
kqueue <- initKqueue dirs
forever $ do
changeddir <- waitChange kqueue
print $ "detected a change in " ++ show changeddir
watchThread st dstatus changechan = go =<< Kqueue.initKqueue "." ignored
where
go kq = do
(kq', changes) <- Kqueue.waitChange kq
print $ "detected a change in " ++ show changes
go kq'
#else
watchThread = undefined
#endif /* WITH_KQUEUE */