[Libguestfs] [PATCH 2/2] mllib: Export which in "stdlib mode".

[Richard W.M. Jones]

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