Something went wrong. Try again.
A local Git merge queue with content-bound gate verdicts
Something went wrong. Try again.
877 B · 28 lines
OCaml
at main
1234567891011121314151617181920212223242526272829open Cmdlineropen Cmdliner.Term.Syntaxmodule Command_dequeue = Merge_queue_eio.Command_dequeue
let action out : Common.action Term.t = let+ out and+ name = let doc = "The branch to withdraw." in Arg.(required & pos 0 (some Common.branch) None & info [] ~docv:"NAME" ~doc) in fun ctx -> match Command_dequeue.run ctx name with | Ended r -> Common.result out r | Left signal -> Merge_queue.Signal.exit_code signal
let cmd = let man = [ `S Manpage.s_description; `P "Withdraw $(i,NAME) from every queue. The branch, its commits and its \ worktree stay, and a waiting $(b,mq land) ends with $(b,removed). A \ $(i,NAME) that is not queued exits 0 and says so; an unknown \ $(i,NAME) is refused."; ] in Common.v "dequeue" ~exits:Act ~doc:"Withdraw a branch from the queue." ~man action