diff options
-rw-r--r-- | Git/UnionMerge.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 |