Add minimal error handling

2022-05-26 18:39:37 -04:00 · 2022-05-26 18:39:37 -04:00 · 8f1701dabb
commit 8f1701dabb
parent 7beca7e0f6
1 changed files with 11 additions and 7 deletions
--- a/src/ludus/loader.clj
+++ b/src/ludus/loader.clj
@ -4,7 +4,11 @@
 (defn cwd [] (fs/cwd))

 (defn load-import
-	([file] (-> file (fs/canonicalize) (fs/file) (slurp)))
+  ([file] 
+   (let [path (-> file (fs/canonicalize) (fs/file))]
+     (try (slurp path)
+       (catch java.io.FileNotFoundException _ 
+         (throw (ex-info (str "File " path " not found") {:path path ::error true}))))))
  ([file from]
   (load-import 
     (fs/path