fix deletion of dorodata on startup

5 years ago · 8c48f52471
parent e8d54c6fd5
commit 8c48f52471
1 changed files with 6 additions and 3 deletions
--- a/main.janet
+++ b/main.janet
@ -55,9 +55,12 @@
  entries)

 (defn ensure-dorodata []
-  (-> (file/open dorodata :w)
-      (file/flush)
-      (file/close)))
+  (let [f (file/open dorodata :r)]
+    (if (nil? f)
+      (-> (file/open dorodata :w)
+          (file/flush)
+          (file/close))
+      (file/close f))))

 (defn load-entries []
  (let [f (file/open dorodata :r)