From 747f877befd77ca0c8d2aa3abf376ebf28e3ea99 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 21 Jan 2022 17:05:32 +0530
Subject: forge: Ensure laminar configuration directory exists.

* forge/laminar.scm (forge-laminar-activation): Create laminar
configuration directory if it does not exist.
---
 forge/laminar.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'forge/laminar.scm')

diff --git a/forge/laminar.scm b/forge/laminar.scm
index 5dbfbc4..76e9696 100644
--- a/forge/laminar.scm
+++ b/forge/laminar.scm
@@ -62,11 +62,14 @@
 
 (define (forge-laminar-activation config)
   (let* ((state-directory (forge-laminar-configuration-state-directory config))
-         (groups-configuration (string-append state-directory "/cfg/groups.conf"))
-         (jobs-directory (string-append state-directory "/cfg/jobs")))
+         (configuration-directory (string-append state-directory "/cfg"))
+         (groups-configuration (string-append configuration-directory "/groups.conf"))
+         (jobs-directory (string-append configuration-directory "/jobs")))
     #~(begin
         (use-modules (srfi srfi-26))
 
+        ;; Ensure configuration directory exists.
+        (mkdir-p #$configuration-directory)
         ;; Configure groups.
         (when (file-exists? #$groups-configuration)
           (delete-file #$groups-configuration))
-- 
cgit v1.2.3