guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]


From: Ricardo Wurmus
Date: Sat, 26 Aug 2017 07:57:37 -0400 (EDT)

branch: master
commit cf96567db7c1b5688ffa601567b10ac6e72c1eab
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Aug 26 13:55:57 2017 +0200

    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 <address@hidden>
 ;;; Copyright © 2016, 2017 Mathieu Lirzin <address@hidden>
 ;;; Copyright © 2017 Mathieu Othacehe <address@hidden>
+;;; Copyright © 2017 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]