diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-14 15:30:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-14 15:43:13 -0400 |
| commit | 02f1bd2bf47d3ff49a222e9428ec27708ef55f64 (patch) | |
| tree | 456548530c65850a829a1a85609070bc111de1b9 /Git/HashObject.hs | |
| parent | 2b24e16a633575703a43e1fb991f34b290a1d7e4 (diff) | |
split more stuff out of Git.hs
Diffstat (limited to 'Git/HashObject.hs')
| -rw-r--r-- | Git/HashObject.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/HashObject.hs b/Git/HashObject.hs index 99b96afcb..60822f3f0 100644 --- a/Git/HashObject.hs +++ b/Git/HashObject.hs @@ -17,10 +17,10 @@ hashFiles paths repo = do (pid, fromh, toh) <- hPipeBoth "git" $ toCommand $ git_hash_object repo _ <- forkProcess (feeder toh) hClose toh - shas <- map Git.Ref . lines <$> hGetContentsStrict fromh + shas <- map Ref . lines <$> hGetContentsStrict fromh return (shas, ender fromh pid) where - git_hash_object = Git.gitCommandLine + git_hash_object = gitCommandLine [Param "hash-object", Param "-w", Param "--stdin-paths"] feeder toh = do hPutStr toh $ unlines paths |