1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
open! Import
type t =
| Help of
{ command_doc_spec : Command_doc_spec.t
; error : bool
; message : string option
}
| Manpage of
{ prose : Manpage.Prose.t
; command_doc_spec : Command_doc_spec.t
}
| Parse_error of
{ error : Error.Parse_error.t
; command_doc_spec : Command_doc_spec.t
}
| Reentrant_query of { suggestions : string list }
| Generate_completion_script of { completion_script : string }