[Libguestfs] [PATCH supermin 5/5] Remove generic 'file_exists' function from utils.ml.

--- src/utils.ml | 4 ---- src/utils.mli | 3 --- 2 files changed, 7 deletions(-) diff --git a/src/utils.ml b/src/utils.ml index 55f6754..5f0d24c 100644 --- a/src/utils.ml +++ b/src/utils.ml @@ -28,10 +28,6 @@ let (//) = Filename.concat let quote = Filename.quote let quoted_list names = String.concat " " (List.map quote names) -let file_exists name = - try access name [F_OK]; true - with Unix_error _ -> false - let dir_exists name = try (stat name).st_kind = S_DIR with Unix_error _ -> false diff --git a/src/utils.mli b/src/utils.mli index 38bf9a0..5de940d 100644 --- a/src/utils.mli +++ b/src/utils.mli @@ -24,9 +24,6 @@ val ( *^ ) : int64 -> int64 -> int64 val (/^) : int64 -> int64 -> int64 (** Int64 operators. *) -val file_exists : string -> bool - (** Return [true] iff file exists. *) - val dir_exists : string -> bool (** Return [true] iff dir exists. *) -- 1.8.5.3