download: Fix typo in procedure name.
* guix/build/download.scm (make-credendials-with-ca-trust-files): Rename to... (make-credentials-with-ca-trust-files): ... this.
This commit is contained in:
parent
c1a871a166
commit
f1c18e1766
@ -178,7 +178,7 @@ name decoding bug described at
|
|||||||
(let ((data (call-with-input-file file get-bytevector-all)))
|
(let ((data (call-with-input-file file get-bytevector-all)))
|
||||||
(set-certificate-credentials-x509-trust-data! cred data format)))
|
(set-certificate-credentials-x509-trust-data! cred data format)))
|
||||||
|
|
||||||
(define make-credendials-with-ca-trust-files
|
(define make-credentials-with-ca-trust-files
|
||||||
(mlambda (directory)
|
(mlambda (directory)
|
||||||
"Return certificate credentials with X.509 authority certificates read from
|
"Return certificate credentials with X.509 authority certificates read from
|
||||||
DIRECTORY. Those authority certificates are checked when
|
DIRECTORY. Those authority certificates are checked when
|
||||||
@ -277,7 +277,7 @@ host name without trailing dot."
|
|||||||
|
|
||||||
(set-session-credentials! session
|
(set-session-credentials! session
|
||||||
(if (and verify-certificate? ca-certs)
|
(if (and verify-certificate? ca-certs)
|
||||||
(make-credendials-with-ca-trust-files
|
(make-credentials-with-ca-trust-files
|
||||||
ca-certs)
|
ca-certs)
|
||||||
(make-certificate-credentials)))
|
(make-certificate-credentials)))
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user