gnu: python-sepolgen: Use G-expression and remove labels.

* gnu/packages/selinux.scm (python-sepolgen)[arguments]: Convert to
G-expression.  Don't refer to python by label.
[inputs]: Remove labels.
This commit is contained in:
Marius Bakke 2022-08-13 13:57:55 +02:00
parent 71d07d821d
commit 46bb84bb57
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA

View file

@ -251,12 +251,13 @@ (define-public python-sepolgen
(package/inherit libsepol
(name "python-sepolgen")
(arguments
`(#:modules ((srfi srfi-1)
(substitute-keyword-arguments (package-arguments libsepol)
((#:modules _ #~%gnu-build-system-modules)
'((srfi srfi-1)
(guix build gnu-build-system)
(guix build utils))
,@(substitute-keyword-arguments (package-arguments libsepol)
(guix build utils)))
((#:phases phases)
`(modify-phases ,phases
#~(modify-phases #$phases
(delete 'portability)
(replace 'enter-dir
(lambda _ (chdir "python/sepolgen")))
@ -264,26 +265,27 @@ (define-public python-sepolgen
;; $out/gnu/store/...-python-.../, so we override the
;; PACKAGEDIR to fix this.
(add-after 'enter-dir 'fix-target-path
(lambda* (#:key inputs outputs #:allow-other-keys)
(lambda* (#:key inputs #:allow-other-keys)
(let ((get-python-version
;; FIXME: copied from python-build-system
(lambda (python)
(let* ((version (last (string-split python #\-)))
(components (string-split version #\.))
(major+minor (take components 2)))
(string-join major+minor ".")))))
(string-join major+minor "."))))
(python (dirname (dirname (search-input-file
inputs "bin/python3")))))
(substitute* "src/sepolgen/Makefile"
(("^PACKAGEDIR.*")
(string-append "PACKAGEDIR="
(assoc-ref outputs "out")
#$output
"/lib/python"
(get-python-version
(assoc-ref inputs "python"))
(get-python-version python)
"/site-packages/sepolgen")))
(substitute* "src/share/Makefile"
(("\\$\\(DESTDIR\\)") (assoc-ref outputs "out")))))))))))
(("\\$\\(DESTDIR\\)") #$output)))))))))
(inputs
`(("python" ,python-wrapper)))
(list python-wrapper))
(native-inputs '())
(synopsis "Python module for generating SELinux policies")
(description