added an alert after a file transfer

Assistant/Threads/Committer.hs

@@ -198,6 +198,8 @@ safeToAdd st changes = runThreadState st $
 			openfiles <- S.fromList . map fst3 . filter openwrite <$>
 				liftIO (Lsof.queryDir tmpdir)
 
+			-- TODO this is here for debugging a problem on
+			-- OSX, and is pretty expensive, so remove later
 			liftIO $ debug thisThread
 				[ "checking changes:"
 				, show changes

Assistant/Threads/MountWatcher.hs

@@ -163,7 +163,7 @@ handleMount st dstatus scanremotes dir = do
 	unless (null rs) $ do
 		let nonspecial = filter (Git.repoIsLocal . Remote.repo) rs
 		unless (null nonspecial) $ do
-			void $ alertWhile dstatus (syncMountAlert dir nonspecial) $ do
+			void $ alertWhile dstatus (syncAlert nonspecial) $ do
 				debug thisThread ["syncing with", show rs]
 				sync nonspecial =<< runThreadState st (inRepo Git.Branch.current)
 			addScanRemotes scanremotes nonspecial

Assistant/Threads/Transferrer.hs

@@ -12,6 +12,7 @@ import Assistant.ThreadedMonad
 import Assistant.DaemonStatus
 import Assistant.TransferQueue
 import Assistant.TransferSlots
+import Assistant.Alert
 import Logs.Transfer
 import Logs.Presence
 import Logs.Location
@@ -94,7 +95,8 @@ transferThread st dstatus slots t info = case (transferRemote info, associatedFi
 				, transferTid = Just tid
 				}
 	where
-		isdownload = transferDirection t == Download
+		direction = transferDirection t
+		isdownload = direction == Download
 		tofrom
 			| isdownload = "from"
 			| otherwise = "to"
@@ -113,3 +115,6 @@ transferThread st dstatus slots t info = case (transferRemote info, associatedFi
 							Remote.logStatus remote key InfoPresent
 						return ok
 			showEndResult ok
+			liftIO $ addAlert dstatus $
+				makeAlertFiller ok $ 
+					transferFileAlert direction file