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
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 [] let params = bupSplitParams r buprepo k []
showOutput -- make way for bup output showOutput -- make way for bup output
let cmd = proc "bup" (toCommand params) let cmd = proc "bup" (toCommand params)
runner <- ifM commandProgressDisabled quiet <- commandProgressDisabled
( return feedWithQuietOutput let runner = if quiet
, return (withHandle StdinHandle) then feedWithQuietOutput
) else withHandle StdinHandle
liftIO $ runner createProcessSuccess cmd $ \h -> do liftIO $ runner createProcessSuccess cmd $ \h -> do
meteredWrite p h b meteredWrite p h b
return True return True