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 return i
#else #else
#if WITH_KQUEUE #if WITH_KQUEUE
type DirWatcherHandle = ThreadID type DirWatcherHandle = ThreadId
watchDir :: FilePath -> Pruner -> WatchHooks -> (IO Kqueue.Kqueue -> IO Kqueue.Kqueue) -> IO DirWatcherHandle watchDir :: FilePath -> Pruner -> WatchHooks -> (IO Kqueue.Kqueue -> IO Kqueue.Kqueue) -> IO DirWatcherHandle
watchDir dir ignored hooks runstartup = do watchDir dir ignored hooks runstartup = do
kq <- runstartup $ Kqueue.initKqueue dir ignored kq <- runstartup $ Kqueue.initKqueue dir ignored