From cf96567db7c1b5688ffa601567b10ac6e72c1eab Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Sat, 26 Aug 2017 13:55:57 +0200
Subject: base: Set certificate location.

* src/cuirass/base.scm (process-specs): Set certificate location to the value
in GIT_SSL_CAINFO or SSL_CERT_DIR.
---
 src/cuirass/base.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index a542e60..00b58f6 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2016, 2017 Mathieu Lirzin <mthl@gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
+;;; Copyright © 2017 Ricardo Wurmus <rekado@elephly.net>
 ;;;
 ;;; This file is part of Cuirass.
 ;;;
@@ -225,6 +226,10 @@ directory and the sha1 of the top level commit in this directory."
       (let ((stamp (db-get-stamp db spec)))
         ;; Catch and report git errors.
         (with-git-error-handling
+         (let ((certs (or (getenv "GIT_SSL_CAINFO")
+                          (getenv "SSL_CERT_DIR"))))
+           (when certs
+             (set-tls-certificate-locations! certs)))
          (receive (checkout commit)
              (fetch-repository store spec)
            (when commit
-- 
cgit v1.2.3