mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use fileEncoding for git-update-index input handle

Browse source
This commit is contained in:
Joey Hess 2012-02-04 13:03:33 -04:00
commit dc682e53a2
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Git/UnionMerge.hs
View file

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