summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-04 19:41:58 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-04 19:41:58 -0400
commitbdbfe36e945e97d66c965bc7227d1457372bce32 (patch)
tree1df2e2e0d25498c0181286e1e1f70b191e444a60
parent076890be2be34ce91ca0d170f850a8ca2cce6ff8 (diff)
bugfix
-rw-r--r--Git/Command.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Git/Command.hs b/Git/Command.hs
index f38d6f72f..96957c838 100644
--- a/Git/Command.hs
+++ b/Git/Command.hs
@@ -8,7 +8,7 @@
module Git.Command where
import System.Posix.Process (getAnyProcessStatus)
-import System.Process (std_in, env)
+import System.Process (std_out, env)
import Common
import Git
@@ -46,7 +46,8 @@ run subcommand params repo = assertLocal repo $
-}
pipeReadLazy :: [CommandParam] -> Repo -> IO (String, IO Bool)
pipeReadLazy params repo = assertLocal repo $ do
- (Just h, _, _, pid) <- createProcess p { std_in = CreatePipe }
+ (_, Just h, _, pid) <- createProcess p { std_out = CreatePipe }
+ fileEncoding h
c <- hGetContents h
return (c, checkSuccessProcess pid)
where