diff options
Diffstat (limited to 'guix/forge')
| -rw-r--r-- | guix/forge/cgit.scm | 5 | ||||
| -rw-r--r-- | guix/forge/fcgiwrap.scm | 16 |
2 files changed, 11 insertions, 10 deletions
diff --git a/guix/forge/cgit.scm b/guix/forge/cgit.scm index f652825..805f47f 100644 --- a/guix/forge/cgit.scm +++ b/guix/forge/cgit.scm @@ -18,6 +18,7 @@ ;;; <https://www.gnu.org/licenses/>. (define-module (forge cgit) + #:use-module (forge environment) #:use-module (forge fcgiwrap) #:use-module (forge nginx) #:use-module (forge socket) @@ -226,7 +227,9 @@ configured in @var{config}." (name "cgit") (user "nginx") (group "nginx") - (environment-variables `(("CGIT_CONFIG" . ,cgitrc))) + (environment-variables (list (environment-variable + (name "CGIT_CONFIG") + (value cgitrc)))) (mappings (list (file-system-mapping (source repository-directory) (target source)) diff --git a/guix/forge/fcgiwrap.scm b/guix/forge/fcgiwrap.scm index b14bb23..f699480 100644 --- a/guix/forge/fcgiwrap.scm +++ b/guix/forge/fcgiwrap.scm @@ -18,6 +18,7 @@ ;;; <https://www.gnu.org/licenses/>. (define-module (forge fcgiwrap) + #:use-module (forge environment) #:use-module (forge socket) #:use-module (gnu build linux-container) #:use-module ((gnu packages web) #:select (fcgiwrap)) @@ -129,8 +130,7 @@ ;; Additional mappings mappings) #:preserved-environment-variables - (map (match-lambda - ((variable . value) variable)) + (map environment-variable-name environment-variables) ;; TODO: If socket is a Unix socket, run in a ;; network namespace. We can't do this yet due to @@ -141,13 +141,11 @@ #:user #$user #:group #$group #:environment-variables - (map (match-lambda - ((variable value) - (string-append variable "=" value))) - '#$(map (match-lambda - ((variable . value) - (list variable value))) - environment-variables)) + (list #$@(map (lambda (variable) + #~(string-append #$(environment-variable-name variable) + "=" + #$(environment-variable-value variable))) + environment-variables)) #:log-file #$(string-append "/var/log/fcgiwrap/" name ".log"))) (stop #~(make-kill-destructor)))) (fcgiwrap-configuration-instances config))) |