diff options
Diffstat (limited to 'Git/Command.hs')
-rw-r--r-- | Git/Command.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index 648da985b..2d68540e6 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -78,7 +78,11 @@ pipeReadStrict params repo = assertLocal repo $ pipeWriteRead :: [CommandParam] -> String -> Repo -> IO String pipeWriteRead params s repo = assertLocal repo $ writeReadProcessEnv "git" (toCommand $ gitCommandLine params repo) - (gitEnv repo) s (Just fileEncoding) + (gitEnv repo) s (Just adjusthandle) + where + adjusthandle h = do + fileEncoding h + hSetNewlineMode h noNewlineTranslation {- Runs a git command, feeding it input on a handle with an action. -} pipeWrite :: [CommandParam] -> Repo -> (Handle -> IO ()) -> IO () |