- actually created empty configuration file when not already found, on program starting.

2024-04-20 16:06:31 +02:00 · 2024-04-20 16:06:31 +02:00 · ad190478dc
parent 366dc63d0c
commit ad190478dc
1 changed files with 2 additions and 1 deletions
--- a/src/main.lisp
+++ b/src/main.lisp
@ -137,7 +137,8 @@ etc.) happened"
              (res:home-confdir)
              +program-name+
              +program-name+)
-      (res:create-empty-file-in-home swconf:+conf-filename+)
+      (res:create-empty-file-in-home (fs:cat-parent-dir (res:home-confdir)
+                                                        swconf:+conf-filename+))
      (os-utils:exit-program 1))))

 (defun shared-init (&key (verbose t) (initialize-database t))