Added check of whether files exist

darrenldl · Apr 17, 2023 · 7409ca3 · 7409ca3
1 parent 5f4153c
commit 7409ca3
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Changelog
 
+## 0.6.1
+
+- Added check of whether provided files exist
+
 ## 0.6.0
 
 - Upgraded status bar and help text/key binding info

diff --git a/src/docfd.ml b/src/docfd.ml
@@ -98,6 +98,13 @@ let run
   Params.debug := debug;
   Params.max_file_tree_depth := max_depth;
   Params.max_word_search_range := max_word_search_range;
+  List.iter (fun file ->
+      if not (Sys.file_exists file) then (
+        Fmt.pr "Error: file \"%s\" does not exist\n" file;
+        exit 1
+      )
+    )
+    files;
   Printf.printf "Scanning for text files\n";
   let ui_mode, document_src =
     if not (stdin_is_atty ()) then

diff --git a/src/version_string.ml b/src/version_string.ml
@@ -1 +1 @@
-let s = "0.6.0"
+let s = "0.6.1"