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

git-annex: GHC compatibility

Browse source
This commit is contained in:
ilovezfs 2016-05-23 00:53:07 -07:00 • committed by Joey Hess
parent 0b7ed680f9
commit fe944a96d3
Failed to extract signature
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Remote/Bup.hs
View file

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