diff options
Diffstat (limited to 'Git/Branch.hs')
| -rw-r--r-- | Git/Branch.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Git/Branch.hs b/Git/Branch.hs index 6edc1c306..4d239d8fc 100644 --- a/Git/Branch.hs +++ b/Git/Branch.hs @@ -73,12 +73,10 @@ commit :: String -> Branch -> [Ref] -> Repo -> IO Sha commit message branch parentrefs repo = do tree <- getSha "write-tree" $ pipeRead [Param "write-tree"] repo - sha <- getSha "commit-tree" $ - ignorehandle $ pipeWriteRead - (map Param $ ["commit-tree", show tree] ++ ps) - message repo + sha <- getSha "commit-tree" $ pipeWriteRead + (map Param $ ["commit-tree", show tree] ++ ps) + message repo run "update-ref" [Param $ show branch, Param $ show sha] repo return sha where - ignorehandle a = snd <$> a ps = concatMap (\r -> ["-p", show r]) parentrefs |