ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: nss-certs: Use G-Expression.

Browse source 
* gnu/packages/certs.scm (nss-certs)[arguments]: Use a gexp.

Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Brian Kubisiak 2022-04-02 17:49:15 -07:00 committed by Ludovic Courtès
parent 65e3de5cce
commit 555ddf0dd7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 22 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/certs.scm
View file

@ -28,6 +28,7 @@ (define-module (gnu packages certs)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix gexp)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system copy) #:use-module (guix build-system copy)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
@ -159,21 +160,17 @@ (define-public nss-certs
(inputs '()) (inputs '())
(propagated-inputs '()) (propagated-inputs '())
(arguments (arguments
`(#:modules ((guix build gnu-build-system) (list #:modules '((guix build gnu-build-system)
(guix build utils) (guix build utils)
(rnrs io ports) (rnrs io ports)
(srfi srfi-26)) (srfi srfi-26))
#:phases #:phases
(modify-phases #~(modify-phases
(map (cut assq <> %standard-phases) (map (cut assq <> %standard-phases)
'(set-paths install-locale unpack)) '(set-paths install-locale unpack))
(add-after 'unpack 'install (add-after 'unpack 'install
(lambda _ (lambda _
;; TODO: On the next rebuild cycle, remove references to (let ((certsdir (string-append #$output
;; '%output' and '%outputs'.
(let ((certsdir (string-append ,(if (%current-target-system)
'(assoc-ref %outputs "out")
'%output)
"/etc/ssl/certs/"))) "/etc/ssl/certs/")))
(with-directory-excursion "nss/lib/ckfw/builtins/" (with-directory-excursion "nss/lib/ckfw/builtins/"
(unless (file-exists? "blacklist.txt") (unless (file-exists? "blacklist.txt")