diff options
| author |  ilovezfs <ilovezfs@icloud.com> | 2016-05-23 00:53:07 -0700 |
|---|---|---|
| committer |  Joey Hess <joeyh@joeyh.name> | 2016-05-23 11:02:34 -0400 |
| commit | 528f8ab9d85d39cabea6d846aba758a9927db910 (patch) | |
| tree | 52c6f4b8315deb15be2eb5913cd07f9e73b51b54 /Remote | |
| parent | 359da416a078033b05cb3ba9c53ba7a00b4028f2 (diff) | |
git-annex: GHC compatibility
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 |