diff options
-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 |