diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-20 21:38:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-20 21:38:52 -0400 |
| commit | 01e8a0a9e5de13b4c1f5baa5d44e8898692f62e4 (patch) | |
| tree | de71d1cfcd5c85bb7567a22b62d2795f6c382ee2 /git-union-merge.hs | |
| parent | d519bc71372fe1962a9e03fc5472f9fe870066f8 (diff) | |
allow git-union-merge to write to any ref
Not just refs/heads/* branches.
Diffstat (limited to 'git-union-merge.hs')
| -rw-r--r-- | git-union-merge.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-union-merge.hs b/git-union-merge.hs index b0c59a6d3..8e7e0367b 100644 --- a/git-union-merge.hs +++ b/git-union-merge.hs @@ -19,7 +19,7 @@ import qualified GitRepo as Git import Utility header :: String -header = "Usage: git-union-merge branch ref ref" +header = "Usage: git-union-merge newref ref ref" usage :: IO a usage = error $ "bad parameters\n\n" ++ header @@ -109,7 +109,7 @@ commit g branch aref bref = do sha <- getSha "commit-tree" $ pipeBoth "git" ["commit-tree", tree, "-p", aref, "-p", bref] "union merge" - Git.run g "update-ref" [Param $ "refs/heads/" ++ branch, Param sha] + Git.run g "update-ref" [Param branch, Param sha] {- Runs an action that causes a git subcommand to emit a sha, and strips any trailing newline, returning the sha. -} |