summary refs log tree commit diff
path: root/gnu/packages
diff options
context:
space:
mode:
authorMarius Bakke <marius@gnu.org>2022-08-13 13:49:30 +0200
committerMarius Bakke <marius@gnu.org>2022-08-13 19:24:35 +0200
commit71d07d821dec93bdb6a308f53bd3b38a627a33a7 (patch)
treee2b3516d9892b3da841a06f37ca234edd9781a81 /gnu/packages
parent9bfdd1e7cb4596e3aee68c21a4ad39e0540a8c3a (diff)
downloadguix-71d07d821dec93bdb6a308f53bd3b38a627a33a7.tar.gz
gnu: secilc: Remove input labels.
* gnu/packages/selinux.scm (secilc)[arguments]: Use G-expression and
SEARCH-INPUT-DIRECTORY.
[inputs, native-inputs]: Remove labels.
Diffstat (limited to 'gnu/packages')
-rw-r--r--gnu/packages/selinux.scm26
1 files changed, 13 insertions, 13 deletions
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 @@ binary policies.")
     (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.")