diff options
Diffstat (limited to 'Git/Branch.hs')
| -rw-r--r-- | Git/Branch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/Branch.hs b/Git/Branch.hs index fed53d767..01d028f55 100644 --- 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 |