diff options
Diffstat (limited to 'guix/forge/fcgiwrap.scm')
| -rw-r--r-- | guix/forge/fcgiwrap.scm | 16 |
1 files changed, 7 insertions, 9 deletions
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))) |