This commit is contained in:
Joey Hess 2012-06-28 14:15:49 -04:00
parent 421f9ce0e2
commit 638a321ca5

View file

@ -86,7 +86,7 @@ watchDir dir prune hooks runstartup = do
return i
#else
#if WITH_KQUEUE
type DirWatcherHandle = ThreadID
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