improve display of failed transfer alert

2012-08-27 13:52:48 -04:00 · 2012-08-27 13:52:48 -04:00 · 11c1f32c51
commit 11c1f32c51
parent 2433f6ca5a
2 changed files with 8 additions and 5 deletions
--- a/Assistant/Threads/Transferrer.hs
+++ b/Assistant/Threads/Transferrer.hs
@ -96,10 +96,10 @@ transferThread dstatus slots t info runner program = case (transferRemote info,
 			(_, _, _, pid)
 				<- createProcess (proc program $ toCommand params)
 					{ create_group = True }
-			status <- waitForProcess pid
+			ok <- (==) ExitSuccess <$> waitForProcess pid
 			addAlert dstatus $
-				makeAlertFiller (status == ExitSuccess) $ 
-					transferFileAlert direction file
+				makeAlertFiller ok $ 
+					transferFileAlert direction ok file
 			where
 				params =
 					[ Param "transferkey"