From 2d457bf8dfa9e69050d213df664d0407072304ad Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@fischer.debian.org>
Date: Tue, 19 Jun 2012 01:52:07 +0000
Subject: fix build

---
 Assistant/Watcher.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/Assistant/Watcher.hs b/Assistant/Watcher.hs
index 13c27d080..e2dd5cd2a 100644
--- a/Assistant/Watcher.hs
+++ b/Assistant/Watcher.hs
@@ -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 */
-- 
cgit v1.2.3