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

[Richard W.M. Jones]

---
 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