Skip to content

Commit

Permalink
One more tweak
Browse files Browse the repository at this point in the history
  • Loading branch information
ineol committed Jun 5, 2024
1 parent 5df176f commit 5d428ab
Showing 1 changed file with 10 additions and 8 deletions.
18 changes: 10 additions & 8 deletions coq/args.ml
Original file line number Diff line number Diff line change
Expand Up @@ -84,18 +84,20 @@ let ri_from : (string option * string) list Term.t =
& info [ "rifrom"; "require-import-from" ] ~docv:"FROM,LIBRARY" ~doc))

let int_backend =
let docv = "BACKEND" in
let backends = [ ("Coq", Limits.Coq); ("Mp", Limits.Mp) ] in
let backends_str = "either 'Mp', for memprof-limits token-based interruption,
or 'Coq', for Coq's polling mode (unreliable). The 'Mp' backend is only supported in OCaml 4.x series." in
let doc =
"Select Interruption Backend. 'Mp' = memprof-limits token-based \
interruption , 'Coq' = Coq's polling mode (unreliable). The 'Mp' backend \
is only supported in OCaml 4.x series."
Printf.sprintf
"Select Interruption Backend, if absent, the best available for your \
OCaml version will be selected. %s is %s"
docv backends_str
in
let absent = "'Mp' for OCaml 4.x, 'Coq' for OCaml 5.x" in
let backends = [ ("Coq", Limits.Coq); ("Mp", Limits.Mp) ] in
let docv = Cmdliner.Arg.doc_alts_enum ~quoted:true backends in
Arg.(
value
& opt (some (enum backends)) None
& info [ "int_backend" ] ~docv ~doc ~absent)
value & opt (some (enum backends)) None & info [ "int_backend" ] ~docv ~doc
~absent)

let roots : string list Term.t =
let doc = "Workspace(s) root(s)" in
Expand Down

0 comments on commit 5d428ab

Please sign in to comment.