fix kqueue build

1 files changed, 7 insertions, 4 deletions

diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs
index bfeec7630..51dc57263 100644
--- a/Assistant/Threads/Watcher.hs
+++ b/Assistant/Threads/Watcher.hs
@@ -72,11 +72,11 @@ watchThread st dstatus transferqueue changechan = do
 			}
 
 {- Initial scartup scan. The action should return once the scan is complete. -}
-startupScan :: ThreadState -> DaemonStatusHandle -> IO a -> IO ()
+startupScan :: ThreadState -> DaemonStatusHandle -> IO a -> IO a
 startupScan st dstatus scanner = do
 	runThreadState st $ showAction "scanning"
-	void $ alertWhile dstatus startupScanAlert $ do
-		void $ scanner
+	r <- alertWhile' dstatus startupScanAlert $ do
+		r <- scanner
 
 		-- Notice any files that were deleted before
 		-- watching was started.
@@ -85,10 +85,13 @@ startupScan st dstatus scanner = do
 			showAction "started"
 		
 		modifyDaemonStatus_ dstatus $ \s -> s { scanComplete = True }
-		return True
+
+		return (True, r)
 	
 	void $ addAlert dstatus runningAlert
 
+	return r
+
 ignored :: FilePath -> Bool
 ignored = ig . takeFileName
 	where