glacier: Fix pipe setup when calling glacier-cli to retrieve an object.

1 files changed, 4 insertions, 1 deletions

diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs
index ba3cc558f..70bcec33f 100644
--- a/Remote/Glacier.hs
+++ b/Remote/Glacier.hs
@@ -141,7 +141,10 @@ retrieve r k sink = go =<< glacierEnv c u
 		]
 	go Nothing = error "cannot retrieve from glacier"
 	go (Just e) = do
-		let cmd = (proc "glacier" (toCommand params)) { env = Just e }
+		let cmd = (proc "glacier" (toCommand params))
+			{ env = Just e
+			, std_out = CreatePipe
+			}
 		(_, Just h, _, pid) <- liftIO $ createProcess cmd
 		-- Glacier cannot store empty files, so if the output is
 		-- empty, the content is not available yet.