From dc682e53a2971a4e1ca89a997dcb44406aa5be75 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 4 Feb 2012 13:03:33 -0400 Subject: use fileEncoding for git-update-index input handle --- Git/UnionMerge.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Git') diff --git a/Git/UnionMerge.hs b/Git/UnionMerge.hs index 15bff6052..be8eb10d9 100644 --- a/Git/UnionMerge.hs +++ b/Git/UnionMerge.hs @@ -57,6 +57,7 @@ update_index repo ls = stream_update_index repo [(`mapM_` ls)] stream_update_index :: Repo -> [Streamer] -> IO () stream_update_index repo as = do (p, h) <- hPipeTo "git" (toCommand $ gitCommandLine params repo) + fileEncoding h forM_ as (stream h) hClose h forceSuccess p -- cgit v1.2.3