git-recover-repository 1/2 done

2013-10-20 17:50:51 -04:00 · 2013-10-20 17:50:51 -04:00 · 4f871f89ba
commit 4f871f89ba
parent f482de1b76
16 changed files with 431 additions and 43 deletions
--- a/Git/Branch.hs
+++ b/Git/Branch.hs
@ -96,7 +96,7 @@ commit message branch parentrefs repo = do
 		pipeReadStrict [Param "write-tree"] repo
 	sha <- getSha "commit-tree" $ pipeWriteRead
 		(map Param $ ["commit-tree", show tree] ++ ps)
-		message repo
+		(Just $ flip hPutStr message) repo
 	run [Param "update-ref", Param $ show branch, Param $ show sha] repo
 	return sha
  where