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)
+  (let [f (file/open dorodata :r)]
-      (file/flush)
+    (if (nil? f)
-      (file/close)))
+      (-> (file/open dorodata :w)
          (file/flush)
          (file/close))
      (file/close f))))
 (defn load-entries []
  (let [f (file/open dorodata :r)