From cab5b78a7d08d8ed3d25751844e6aa43278fccfb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 23 Feb 2016 18:30:11 -0400 Subject: use getSha --- Git/Tree.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Git/Tree.hs b/Git/Tree.hs index 290c88249..c4cbe03f1 100644 --- a/Git/Tree.hs +++ b/Git/Tree.hs @@ -17,6 +17,7 @@ import Git import Git.FilePath import Git.Types import Git.Command +import Git.Sha import qualified Git.LsTree as LsTree import qualified Utility.CoProcess as CoProcess @@ -101,7 +102,7 @@ mkTree cp l = CoProcess.query cp send receive RecordedSubTree f s _ -> mkTreeOutput 0o040000 TreeObject s f NewSubTree _ _ -> error "recordSubTree internal error; unexpected NewSubTree" hPutStr h "\NUL" -- signal end of tree to --batch - receive h = Ref <$> hGetLine h + receive h = getSha "mktree" (hGetLine h) mkTreeOutput :: FileMode -> ObjectType -> Sha -> TopFilePath -> String mkTreeOutput fm ot s f = concat -- cgit v1.2.3