From 36e3cae37bf0e1ce095ffc09cf0b19819db5ab1c Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 5 Jul 2023 22:36:23 +0100
Subject: forge: Set TLS certificate paths in guix-channel-job-gexp.

* guix/forge/forge.scm: Import (guix profiles).
(guix-channel-job-gexp): Set TLS certificate paths.
---
 guix/forge/forge.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'guix')

diff --git a/guix/forge/forge.scm b/guix/forge/forge.scm
index bfb2169..68abe2f 100644
--- a/guix/forge/forge.scm
+++ b/guix/forge/forge.scm
@@ -32,6 +32,7 @@
   #:use-module (guix channels)
   #:use-module (guix modules)
   #:use-module (guix packages)
+  #:use-module (guix profiles)
   #:use-module (guix records)
   #:use-module (guix store)
   #:use-module ((forge guile-git) #:select (guile-git))
@@ -285,6 +286,13 @@ daemon endpoint."
         (define (code->channel code)
           (eval code (current-module)))
 
+        (setenv "SSL_CERT_DIR"
+                #$(file-append nss-certs "/etc/ssl/certs"))
+        (setenv "SSL_CERT_FILE"
+                #$(file-append (profile
+                                (content (packages->manifest (list git-minimal nss-certs))))
+                               "/etc/ssl/certs/ca-certificates.crt"))
+
         (parameterize ((%daemon-socket-uri #$guix-daemon-uri))
           (list-transduce
            ;; Build derivations and report success or failure.
-- 
cgit v1.2.3