avoid newline translation when writing to git hash-object

They're like mushrooms, just keep popping up.
This commit is contained in:
Joey Hess 2013-06-18 14:58:38 -04:00
parent 02c51266ec
commit 4e2fab90d5
2 changed files with 7 additions and 1 deletions

View file

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

2
debian/changelog vendored
View file

@ -31,6 +31,8 @@ git-annex (4.20130602) UNRELEASED; urgency=low
* annex.debug can now be set to enable debug logging by default.
The webapp's debugging check box does this.
* fsck: Avoid getting confused by Windows path separators
* Windows: Multiple bug fixes, including fixing the data written to the
git-annex branch.
-- Joey Hess <joeyh@debian.org> Mon, 10 Jun 2013 12:52:44 -0400