diff options
| author | Arun Isaac | 2022-01-21 17:05:32 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-01-21 17:05:32 +0530 |
| commit | 747f877befd77ca0c8d2aa3abf376ebf28e3ea99 (patch) | |
| tree | 1aa35d17b6d76ec5af1e619572146b4dbdc6fa8c | |
| parent | 9d9cfd67e06264eb7a2fb2cfa006568c5264abbb (diff) | |
| download | guix-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.scm | 7 |
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)) |