From 7f6da40c786f1b501becf46c38299613aa2e2062 Mon Sep 17 00:00:00 2001
From: Gabor Greif <ggreif@gmail.com>
Date: Fri, 8 Apr 2016 17:52:25 +0200
Subject: [PATCH] simplify code to make it compilable with ghc v7.11.20150407

---
 Remote/Bup.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index ce26cea6ef..ac3cc09b1f 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -132,10 +132,10 @@ store r buprepo = byteStorer $ \k b p -> do
 	let params = bupSplitParams r buprepo k []
 	showOutput -- make way for bup output
 	let cmd = proc "bup" (toCommand params)
-	runner <- ifM commandProgressDisabled
-		( return feedWithQuietOutput
-		, return (withHandle StdinHandle)
-		)
+	quiet <- commandProgressDisabled
+	let runner = if quiet
+			then feedWithQuietOutput
+			else withHandle StdinHandle
 	liftIO $ runner createProcessSuccess cmd $ \h -> do
 		meteredWrite p h b
 		return True