summaryrefslogtreecommitdiff
path: root/Git/HashObject.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-02-04 12:58:42 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-02-04 13:01:00 -0400
commit586be399523a9a0ae1ed39d34b84c2c78296b457 (patch)
tree8f9afc7816e52b0269aa3215c8f2e0bcddbba17a /Git/HashObject.hs
parentf1c7dc12127fcbad411c28df57e9ce194bd66509 (diff)
fix file encoding of HashObject
Diffstat (limited to 'Git/HashObject.hs')
-rw-r--r--Git/HashObject.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs
index f5e6d50cd..ae498278f 100644
--- a/Git/HashObject.hs
+++ b/Git/HashObject.hs
@@ -16,6 +16,7 @@ import Git.Command
hashFiles :: [FilePath] -> Repo -> IO ([Sha], IO ())
hashFiles paths repo = do
(pid, fromh, toh) <- hPipeBoth "git" $ toCommand $ git_hash_object repo
+ fileEncoding toh
_ <- forkProcess (feeder toh)
hClose toh
shas <- map Ref . lines <$> hGetContentsStrict fromh