github-tui/lib/cli.ml

10 lines
249 B
OCaml
Raw Normal View History

2024-01-07 15:57:06 +03:00
open Core
let repo_param =
let open Command.Param in
anon ("owner/repo" %: string)
let command =
Command.basic
~summary:"Display GitHub TUI for the selected repository"
(Command.Param.map repo_param ~f:(fun _repo () -> Tui.start ()))