From 71d07d821dec93bdb6a308f53bd3b38a627a33a7 Mon Sep 17 00:00:00 2001 From: Marius Bakke Date: Sat, 13 Aug 2022 13:49:30 +0200 Subject: gnu: secilc: Remove input labels. * gnu/packages/selinux.scm (secilc)[arguments]: Use G-expression and SEARCH-INPUT-DIRECTORY. [inputs, native-inputs]: Remove labels. --- gnu/packages/selinux.scm | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'gnu') diff --git a/gnu/packages/selinux.scm b/gnu/packages/selinux.scm index 3e7d55ff67..d1243de00e 100644 --- a/gnu/packages/selinux.scm +++ b/gnu/packages/selinux.scm @@ -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.") -- cgit v1.2.3