Libguestfs - May 2017 - [PATCH 0/2] mllib: Export some more functions to the generator.

These functions are already linked to the generator, they're
just not exported.

Rich.

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

As with the previous commit, this was already being compiled in, but
not exported, so there's no substantive change here.
---
 mllib/common_utils.mli | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/mllib/common_utils.mli b/mllib/common_utils.mli
index 3d2841d93..c088f8497 100644
--- a/mllib/common_utils.mli
+++ b/mllib/common_utils.mli
@@ -267,6 +267,15 @@ val protect : f:(unit -> 'a) -> finally:(unit
-> unit) -> 'a
 val failwithf : ('a, unit, string, 'b) format4 -> 'a
 (** Like [failwith] but supports printf-like arguments. *)
 
+exception Executable_not_found of string (* executable *)
+(** Exception thrown by [which] when the specified executable is not found
+    in [$PATH]. *)
+
+val which : string -> string
+(** Return the full path of the specified executable from [$PATH].
+
+    Throw [Executable_not_found] if not available. *)
+
 val prog : string
 (** The program name (derived from {!Sys.executable_name}). *)
 
@@ -485,15 +494,6 @@ val inspect_mount_root_ro : Guestfs.guestfs -> string
-> unit
 val is_btrfs_subvolume : Guestfs.guestfs -> string -> bool
 (** Checks if a filesystem is a btrfs subvolume. *)
 
-exception Executable_not_found of string (* executable *)
-(** Exception thrown by [which] when the specified executable is not found
-    in [$PATH]. *)
-
-val which : string -> string
-(** Return the full path of the specified executable from [$PATH].
-
-    Throw [Executable_not_found] if not available. *)
-
 val inspect_decrypt : Guestfs.guestfs -> unit
 (** Simple implementation of decryption: look for any [crypto_LUKS]
     partitions and decrypt them, then rescan for VGs.  This only works
-- 
2.13.0