[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