git-annex: GHC compatibility

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

View file

@ -133,12 +133,13 @@ store r buprepo = byteStorer $ \k b p -> do
showOutput -- make way for bup output showOutput -- make way for bup output
let cmd = proc "bup" (toCommand params) let cmd = proc "bup" (toCommand params)
quiet <- commandProgressDisabled quiet <- commandProgressDisabled
let runner = if quiet if quiet
then feedWithQuietOutput then liftIO $ feedWithQuietOutput createProcessSuccess cmd $ \h -> do
else withHandle StdinHandle meteredWrite p h b
liftIO $ runner createProcessSuccess cmd $ \h -> do return True
meteredWrite p h b else liftIO $ withHandle StdinHandle createProcessSuccess cmd $ \h -> do
return True meteredWrite p h b
return True
retrieve :: BupRepo -> Retriever retrieve :: BupRepo -> Retriever
retrieve buprepo = byteRetriever $ \k sink -> do retrieve buprepo = byteRetriever $ \k sink -> do