diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Bup.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs index ac3cc09b1..a481504a0 100644 --- a/Remote/Bup.hs +++ b/Remote/Bup.hs @@ -133,12 +133,13 @@ store r buprepo = byteStorer $ \k b p -> do showOutput -- make way for bup output let cmd = proc "bup" (toCommand params) quiet <- commandProgressDisabled - let runner = if quiet - then feedWithQuietOutput - else withHandle StdinHandle - liftIO $ runner createProcessSuccess cmd $ \h -> do - meteredWrite p h b - return True + if quiet + then liftIO $ feedWithQuietOutput createProcessSuccess cmd $ \h -> do + meteredWrite p h b + return True + else liftIO $ withHandle StdinHandle createProcessSuccess cmd $ \h -> do + meteredWrite p h b + return True retrieve :: BupRepo -> Retriever retrieve buprepo = byteRetriever $ \k sink -> do |