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