From ad190478dcb33b6e6bf09c383ff298f879ac99b5 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sat, 20 Apr 2024 16:06:31 +0200
Subject: [PATCH] - actually created empty configuration file when not already
 found, on program starting.

---
 src/main.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/main.lisp b/src/main.lisp
index b49a1f0..4c3b047 100644
--- 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))