aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-01-21 17:05:32 +0530
committerArun Isaac2022-01-21 17:05:32 +0530
commit747f877befd77ca0c8d2aa3abf376ebf28e3ea99 (patch)
tree1aa35d17b6d76ec5af1e619572146b4dbdc6fa8c
parent9d9cfd67e06264eb7a2fb2cfa006568c5264abbb (diff)
downloadguix-forge-747f877befd77ca0c8d2aa3abf376ebf28e3ea99.tar.gz
guix-forge-747f877befd77ca0c8d2aa3abf376ebf28e3ea99.tar.lz
guix-forge-747f877befd77ca0c8d2aa3abf376ebf28e3ea99.zip
forge: Ensure laminar configuration directory exists.
* forge/laminar.scm (forge-laminar-activation): Create laminar configuration directory if it does not exist.
-rw-r--r--forge/laminar.scm7
1 files changed, 5 insertions, 2 deletions
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))