filename: check that file exists before stat on written_since

ocaml · May 19, 2022 · c7a2ae1 · c7a2ae1
1 parent c2d6cd9
commit c7a2ae1
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/src/core/opamFilename.ml b/src/core/opamFilename.ml
@@ -174,12 +174,6 @@ let touch t =
 let chmod t p =
   Unix.chmod (to_string t) p
 
-let written_since file =
-  let last_update =
-    (Unix.stat (to_string file)).Unix.st_mtime
-  in
-  (Unix.time () -. last_update)
-
 let of_string s =
   let dirname = Filename.dirname s in
   let basename = Filename.basename s in
@@ -227,6 +221,14 @@ let opt_file filename =
 let with_contents fn filename =
   fn (read filename)
 
+let written_since file =
+  if exists file then
+    let last_update =
+      (Unix.stat (to_string file)).Unix.st_mtime
+    in
+    (Unix.time () -. last_update)
+  else -1.
+
 let check_suffix filename s =
   Filename.check_suffix (to_string filename) s