diff options
author | 2012-10-04 19:41:58 -0400 | |
---|---|---|
committer | 2012-10-04 19:41:58 -0400 | |
commit | bdbfe36e945e97d66c965bc7227d1457372bce32 (patch) | |
tree | 1df2e2e0d25498c0181286e1e1f70b191e444a60 /Git/Command.hs | |
parent | 076890be2be34ce91ca0d170f850a8ca2cce6ff8 (diff) |
bugfix
Diffstat (limited to 'Git/Command.hs')
-rw-r--r-- | Git/Command.hs | 5 |
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 |