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

remove redundant showOutput calls.

Browse source 
The meter code does that too.
This commit is contained in:
Joey Hess 2012-11-25 16:13:06 -04:00
parent 59da54f763
commit 356120652f
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/Glacier.hs
View file

@ -126,7 +126,6 @@ storeHelper r k feeder = go =<< glacierEnv c u
] ]
go Nothing = return False go Nothing = return False
go (Just e) = do go (Just e) = do
showOutput
let p = (proc "glacier" (toCommand params)) { env = Just e } let p = (proc "glacier" (toCommand params)) { env = Just e }
liftIO $ catchBoolIO $ liftIO $ catchBoolIO $
withHandle StdinHandle createProcessSuccess p $ \h -> do withHandle StdinHandle createProcessSuccess p $ \h -> do
@ -147,7 +146,6 @@ retrieveHelper r k reader = go =<< glacierEnv c u
] ]
go Nothing = return False go Nothing = return False
go (Just e) = do go (Just e) = do
showOutput
let p = (proc "glacier" (toCommand params)) { env = Just e } let p = (proc "glacier" (toCommand params)) { env = Just e }
ok <- liftIO $ catchBoolIO $ ok <- liftIO $ catchBoolIO $
withHandle StdoutHandle createProcessSuccess p $ \h -> withHandle StdoutHandle createProcessSuccess p $ \h ->