mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
gnu: nss-certs: Use G-Expression.
* gnu/packages/certs.scm (nss-certs)[arguments]: Use a gexp. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
65e3de5cce
commit
555ddf0dd7
1 changed files with 22 additions and 25 deletions
|
@ -28,6 +28,7 @@ (define-module (gnu packages certs)
|
|||
#:use-module (guix packages)
|
||||
#:use-module (guix utils)
|
||||
#:use-module (guix download)
|
||||
#:use-module (guix gexp)
|
||||
#:use-module (guix git-download)
|
||||
#:use-module (guix build-system copy)
|
||||
#:use-module (guix build-system gnu)
|
||||
|
@ -159,31 +160,27 @@ (define-public nss-certs
|
|||
(inputs '())
|
||||
(propagated-inputs '())
|
||||
(arguments
|
||||
`(#:modules ((guix build gnu-build-system)
|
||||
(guix build utils)
|
||||
(rnrs io ports)
|
||||
(srfi srfi-26))
|
||||
#:phases
|
||||
(modify-phases
|
||||
(map (cut assq <> %standard-phases)
|
||||
'(set-paths install-locale unpack))
|
||||
(add-after 'unpack 'install
|
||||
(lambda _
|
||||
;; TODO: On the next rebuild cycle, remove references to
|
||||
;; '%output' and '%outputs'.
|
||||
(let ((certsdir (string-append ,(if (%current-target-system)
|
||||
'(assoc-ref %outputs "out")
|
||||
'%output)
|
||||
"/etc/ssl/certs/")))
|
||||
(with-directory-excursion "nss/lib/ckfw/builtins/"
|
||||
(unless (file-exists? "blacklist.txt")
|
||||
(call-with-output-file "blacklist.txt" (const #t)))
|
||||
;; Extract selected single certificates from blob.
|
||||
(invoke "certdata2pem")
|
||||
;; Copy .pem files into the output.
|
||||
(for-each (cut install-file <> certsdir)
|
||||
(find-files "." ".*\\.pem$")))
|
||||
(invoke "openssl" "rehash" certsdir)))))))
|
||||
(list #:modules '((guix build gnu-build-system)
|
||||
(guix build utils)
|
||||
(rnrs io ports)
|
||||
(srfi srfi-26))
|
||||
#:phases
|
||||
#~(modify-phases
|
||||
(map (cut assq <> %standard-phases)
|
||||
'(set-paths install-locale unpack))
|
||||
(add-after 'unpack 'install
|
||||
(lambda _
|
||||
(let ((certsdir (string-append #$output
|
||||
"/etc/ssl/certs/")))
|
||||
(with-directory-excursion "nss/lib/ckfw/builtins/"
|
||||
(unless (file-exists? "blacklist.txt")
|
||||
(call-with-output-file "blacklist.txt" (const #t)))
|
||||
;; Extract selected single certificates from blob.
|
||||
(invoke "certdata2pem")
|
||||
;; Copy .pem files into the output.
|
||||
(for-each (cut install-file <> certsdir)
|
||||
(find-files "." ".*\\.pem$")))
|
||||
(invoke "openssl" "rehash" certsdir)))))))
|
||||
(synopsis "CA certificates from Mozilla")
|
||||
(description
|
||||
"This package provides certificates for Certification Authorities (CA)
|
||||
|
|
Loading…
Reference in a new issue