avoid newline translation when writing to git hash-object

They're like mushrooms, just keep popping up.

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 ()