From c298ca5566ccfbf29917202469d84676a531dd85 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 20 Oct 2014 15:11:01 -0400 Subject: glacier: Fix pipe setup when calling glacier-cli to retrieve an object. --- Remote/Glacier.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Remote/Glacier.hs') 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. -- cgit v1.2.3