From 70cf66fded5af5dfd8e37857cf0c0da1361ed5e5 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 17 Sep 2012 13:41:13 -0400
Subject: [PATCH] simplify

---
 Assistant/Threads/Transferrer.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs
index a38fa2ccc1..bd73d06d62 100644
--- a/Assistant/Threads/Transferrer.hs
+++ b/Assistant/Threads/Transferrer.hs
@@ -63,11 +63,10 @@ startTransfer st dstatus program t info = case (transferRemote info, associatedF
 			(_, _, _, pid)
 				<- createProcess (proc program $ toCommand params)
 					{ create_group = True }
-			ok <- (==) ExitSuccess <$> waitForProcess pid
-			when ok $ void $
+			whenM ((==) ExitSuccess <$> waitForProcess pid) $ void $
 				addAlert dstatus $
-					makeAlertFiller ok $
-						transferFileAlert direction ok file
+					makeAlertFiller True $
+						transferFileAlert direction True file
 			where
 				params =
 					[ Param "transferkey"