git-recover-repository 1/2 done
This commit is contained in:
parent
f482de1b76
commit
4f871f89ba
16 changed files with 431 additions and 43 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue