mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

bugfix

Browse source
This commit is contained in:
Joey Hess 2012-10-04 19:41:58 -04:00
parent de3ea4adb6
commit f7f1d25df8
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Git/Command.hs
View file

@ -8,7 +8,7 @@
module Git.Command where module Git.Command where
import System.Posix.Process (getAnyProcessStatus) import System.Posix.Process (getAnyProcessStatus)
import System.Process (std_in, env) import System.Process (std_out, env)
import Common import Common
import Git import Git
@ -46,7 +46,8 @@ run subcommand params repo = assertLocal repo $
-} -}
pipeReadLazy :: [CommandParam] -> Repo -> IO (String, IO Bool) pipeReadLazy :: [CommandParam] -> Repo -> IO (String, IO Bool)
pipeReadLazy params repo = assertLocal repo $ do 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 c <- hGetContents h
return (c, checkSuccessProcess pid) return (c, checkSuccessProcess pid)
where where