Commits

"Jun...@gmail.com>"  committed c463605

compilation fix

  • Participants
  • Parent commits e436d71

Comments (0)

Files changed (1)

File lib/comopt.mli

 
 type ('a, 'err) opt
 
+module Error : sig
+  type t =
+    [ `Ambiguous              of string * string * string
+    | `Nullary_takes_argument of string
+    | `Requires_argument      of string
+    | `Unknown                of string 
+    ]
+
+  val to_string : t -> string
+end
+
 val nullary : char option -> string option -> 'a -> ('a, 'err) opt
 
 val unary : char option -> string option -> (string -> ('a, 'err) result) -> ('a, 'err) opt