diff options
author | Gabor Greif <ggreif@gmail.com> | 2016-04-08 17:52:25 +0200 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-04-12 15:26:40 -0400 |
commit | cbcffbc495276586821b711c6a8e74a33d672de4 (patch) | |
tree | 6b966c4e71d661e63f92968019d3a8e1514ccb28 | |
parent | a91962769ea7a9e09e9b456302a74ad3dd399105 (diff) |
simplify code to make it compilable with ghc v7.11.20150407
-rw-r--r-- | Remote/Bup.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index ce26cea6e..ac3cc09b1 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 |