fix last zombies in the assistant

Made Git.LsFiles return cleanup actions, and everything waits on
processes now, except of course for Seek.

Assistant/Threads/Committer.hs

@@ -5,7 +5,7 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP, BangPatterns #-}
 
 module Assistant.Threads.Committer where
 
@@ -174,8 +174,9 @@ handleAdds delayadd st changechan transferqueue dstatus cs = returnWhen (null in
 		
 		findnew [] = return []
 		findnew pending = do
-			newfiles <- runThreadState st $
+			(!newfiles, cleanup) <- runThreadState st $
 				inRepo (Git.LsFiles.notInRepo False $ map changeFile pending)
+			void cleanup
 			-- note: timestamp info is lost here
 			let ts = changeTime (pending !! 0)
 			return $ map (PendingAddChange ts) newfiles

Assistant/Threads/SanityChecker.hs

@@ -76,7 +76,7 @@ check :: ThreadState -> DaemonStatusHandle -> TransferQueue -> ChangeChan -> IO
 check st dstatus transferqueue changechan = do
 	g <- runThreadState st $ fromRepo id
 	-- Find old unstaged symlinks, and add them to git.
-	unstaged <- Git.LsFiles.notInRepo False ["."] g
+	(unstaged, cleanup) <- Git.LsFiles.notInRepo False ["."] g
 	now <- getPOSIXTime
 	forM_ unstaged $ \file -> do
 		ms <- catchMaybeIO $ getSymbolicLinkStatus file
@@ -85,6 +85,7 @@ check st dstatus transferqueue changechan = do
 				| isSymbolicLink s ->
 					addsymlink file ms
 			_ -> noop
+	void cleanup
 	return True
 	where
 		toonew timestamp now = now < (realToFrac (timestamp + slop) :: POSIXTime)

Assistant/Threads/TransferScanner.hs

@@ -94,8 +94,9 @@ expensiveScan st dstatus transferqueue rs = unless onlyweb $ do
 	liftIO $ debug thisThread ["starting scan of", show visiblers]
 	void $ alertWhile dstatus (scanAlert visiblers) $ do
 		g <- runThreadState st $ fromRepo id
-		files <- LsFiles.inRepo [] g
+		(files, cleanup) <- LsFiles.inRepo [] g
 		go files
+		void cleanup
 		return True
 	liftIO $ debug thisThread ["finished scan of", show visiblers]
 	where