|
@@ -39,6 +39,7 @@ val info : string -> unit
|
|
val warning : string -> unit
|
|
val warning : string -> unit
|
|
val ok : string -> unit
|
|
val ok : string -> unit
|
|
val tips : string -> unit
|
|
val tips : string -> unit
|
|
|
|
+
|
|
type answer = Yes | No
|
|
type answer = Yes | No
|
|
val answer2str : answer -> string
|
|
val answer2str : answer -> string
|
|
val confirm : string -> answer
|
|
val confirm : string -> answer
|