summaryrefslogtreecommitdiff
path: root/Git/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-12 12:19:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-12 12:19:30 -0400
commita0b643354907628a16f927935de0396382239c59 (patch)
tree1641aa8f5309f4d50631555c00df86ec3729a6a7 /Git/Command.hs
parent4a63cdd9008bfe34af01c3662af512927a0cee0b (diff)
Fix a crash when merging files in the git-annex branch that contain invalid utf8.
The crash actually occurred when writing out the file, which was done to a handle that had not had fileSystemEncoding applied to it.
Diffstat (limited to 'Git/Command.hs')
-rw-r--r--Git/Command.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Command.hs b/Git/Command.hs
index 0a324ea00..5f2dd47b0 100644
--- a/Git/Command.hs
+++ b/Git/Command.hs
@@ -73,7 +73,7 @@ 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
+ (gitEnv repo) s (Just fileEncoding)
{- Runs a git subcommand, feeding it input on a handle with an action. -}
pipeWrite :: [CommandParam] -> Repo -> (Handle -> IO ()) -> IO ()