diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2017-08-26 13:55:57 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2017-08-26 13:57:26 +0200 |
| commit | cf96567db7c1b5688ffa601567b10ac6e72c1eab (patch) | |
| tree | 3a9c2c8a86579767f1930c3f93a90fa52fa49b5a | |
| parent | 72f2b6b77cc4e3d7629bdf34e6daee05398b8de1 (diff) | |
| download | cuirass-cf96567db7c1b5688ffa601567b10ac6e72c1eab.tar cuirass-cf96567db7c1b5688ffa601567b10ac6e72c1eab.tar.gz | |
base: Set certificate location.
* src/cuirass/base.scm (process-specs): Set certificate location to the value
in GIT_SSL_CAINFO or SSL_CERT_DIR.
| -rw-r--r-- | src/cuirass/base.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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 |