awesome alert combining

Now an alert tracks files that have recently been added. As a large file
is added, it will have its own alert, that then combines with the tracker
when dones.

Also used for combining sanity checker alerts, as it could possibly want to
display a lot.

1 files changed, 9 insertions, 7 deletions

diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index f236159f9..2ca6a15b9 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -10,6 +10,7 @@ module Assistant.Threads.Committer where
 import Assistant.Common
 import Assistant.Changes
 import Assistant.Commits
+import Assistant.Alert
 import Assistant.ThreadedMonad
 import Assistant.Threads.Watcher
 import Assistant.TransferQueue
@@ -143,15 +144,16 @@ handleAdds st changechan transferqueue dstatus cs = returnWhen (null pendingadds
 
 		add :: Change -> IO (Maybe Change)
 		add change@(PendingAddChange { keySource = ks }) =
-			liftM maybeMaybe $ catchMaybeIO $
-				sanitycheck ks $ runThreadState st $ do
-					showStart "add" $ keyFilename ks
-					key <- Command.Add.ingest ks
-					handle (finishedChange change) (keyFilename ks) key
+			alertWhile' dstatus (addFileAlert $ keyFilename ks) $
+				liftM maybeMaybe $ catchMaybeIO $
+					sanitycheck ks $ runThreadState st $ do
+						showStart "add" $ keyFilename ks
+						key <- Command.Add.ingest ks
+						handle (finishedChange change) (keyFilename ks) key
 		add _ = return Nothing
 
-		maybeMaybe (Just j@(Just _)) = j
-		maybeMaybe _ = Nothing
+		maybeMaybe (Just j@(Just _)) = (True, j)
+		maybeMaybe _ = (False, Nothing)
 
 		handle _ _ Nothing = do
 			showEndFail