From 78ce441925e29acb01e8c98a6133a6e5b917a319 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 22 Dec 2023 07:59:54 +0000
Subject: fcgiwrap: Use <environment-variable> records.

* guix/forge/fcgiwrap.scm: Import (forge environment).
(fcgiwrap-shepherd-services): Use <environment-variable> record.
* doc/forge.skb (Services)[Specialized application deployment
services]{fcgiwrap service}: Document it.
* guix/forge/cgit.scm: Import (forge environment).
(cgit-fcgiwrap-instance): Use <environment-variable> record.
---
 guix/forge/cgit.scm     |  5 ++++-
 guix/forge/fcgiwrap.scm | 16 +++++++---------
 2 files changed, 11 insertions(+), 10 deletions(-)

(limited to 'guix')

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)))
-- 
cgit v1.2.3