These were already included in the .ml implementation file, but just
weren't being exported in the interface, so there's no real change
here. It just allows these functions to be used.
---
mllib/common_utils.mli | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/mllib/common_utils.mli b/mllib/common_utils.mli
index 0669a42bf..3d2841d93 100644
--- a/mllib/common_utils.mli
+++ b/mllib/common_utils.mli
@@ -267,8 +267,6 @@ val protect : f:(unit -> 'a) -> finally:(unit -> unit)
-> 'a
val failwithf : ('a, unit, string, 'b) format4 -> 'a
(** Like [failwith] but supports printf-like arguments. *)
-(*</stdlib>*)
-
val prog : string
(** The program name (derived from {!Sys.executable_name}). *)
@@ -281,6 +279,8 @@ val verbose : unit -> bool
(** Stores the quiet ([--quiet]), trace ([-x]) and verbose ([-v]) flags
in global variables. *)
+(*</stdlib>*)
+
val message : ('a, unit, string, unit) format4 -> 'a
(** Timestamped progress messages. Used for ordinary messages when
not [--quiet]. *)
--
2.13.0