From 356120652f87a139712744998026ea9a926ed612 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 25 Nov 2012 16:13:06 -0400 Subject: [PATCH] remove redundant showOutput calls. The meter code does that too. --- Remote/Glacier.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 2a88b925ee..f960c517fa 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -126,7 +126,6 @@ storeHelper r k feeder = go =<< glacierEnv c u ] go Nothing = return False go (Just e) = do - showOutput let p = (proc "glacier" (toCommand params)) { env = Just e } liftIO $ catchBoolIO $ withHandle StdinHandle createProcessSuccess p $ \h -> do @@ -147,7 +146,6 @@ retrieveHelper r k reader = go =<< glacierEnv c u ] go Nothing = return False go (Just e) = do - showOutput let p = (proc "glacier" (toCommand params)) { env = Just e } ok <- liftIO $ catchBoolIO $ withHandle StdoutHandle createProcessSuccess p $ \h ->