mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify code to make it compilable with ghc v7.11.20150407

Browse source
This commit is contained in:
Gabor Greif 2016-04-08 17:52:25 +02:00 committed by Joey Hess
parent e76cd0ec69
commit 7f6da40c78
Failed to extract signature
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Remote/Bup.hs
View file

@ -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