Archived
1
0
Fork 0

gnu: secilc: Remove input labels.

* gnu/packages/selinux.scm (secilc)[arguments]: Use G-expression and
SEARCH-INPUT-DIRECTORY.
[inputs, native-inputs]: Remove labels.
This commit is contained in:
Marius Bakke 2022-08-13 13:49:30 +02:00
parent 9bfdd1e7cb
commit 71d07d821d
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -226,22 +226,22 @@ binary policies.")
(arguments (arguments
(substitute-keyword-arguments (package-arguments libsepol) (substitute-keyword-arguments (package-arguments libsepol)
((#:make-flags flags) ((#:make-flags flags)
`(let ((docbook (assoc-ref %build-inputs "docbook-xsl"))) #~(let ((xsl (search-input-directory %build-inputs "xml/xsl")))
(cons (string-append "XMLTO=xmlto --skip-validation -x " (cons (string-append "XMLTO=xmlto --skip-validation -x "
docbook "/xml/xsl/docbook-xsl-" xsl "/docbook-xsl-"
,(package-version docbook-xsl) #$(package-version
"/manpages/docbook.xsl") (this-package-native-input "docbook-xsl"))
,flags))) "/manpages/docbook.xsl")
#$flags)))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(delete 'portability) (delete 'portability)
(replace 'enter-dir (replace 'enter-dir
(lambda _ (chdir ,name))))))) (lambda _ (chdir #$name)))))))
(inputs (inputs
`(("libsepol" ,libsepol))) (list libsepol))
(native-inputs (native-inputs
`(("xmlto" ,xmlto) (list xmlto docbook-xsl))
("docbook-xsl" ,docbook-xsl)))
(synopsis "SELinux common intermediate language (CIL) compiler") (synopsis "SELinux common intermediate language (CIL) compiler")
(description "The SELinux CIL compiler is a compiler that converts the (description "The SELinux CIL compiler is a compiler that converts the
@dfn{common intermediate language} (CIL) into a kernel binary policy file.") @dfn{common intermediate language} (CIL) into a kernel binary policy file.")