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