me
/
guix
Archived
1
0
Fork 0
Code

gnu: libselinux: Remove input labels. 

* gnu/packages/selinux.scm (libselinux)[arguments]: Use G-expression.
[native-inputs, inputs, propagated-inputs]: Remove labels.
Marius Bakke 2022-08-13 13:42:39 +02:00
parent 86084aa4c8
commit 54f14833a9
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 29 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
gnu/packages/selinux.scm
View File

@ -136,43 +136,42 @@ module into a binary representation.")
(arguments (arguments
(substitute-keyword-arguments (package-arguments libsepol) (substitute-keyword-arguments (package-arguments libsepol)
((#:make-flags flags) ((#:make-flags flags)
`(cons* "PYTHON=python3" #~(cons* "PYTHON=python3"
(string-append "LIBSEPOLA=" (string-append "LIBSEPOLA="
(assoc-ref %build-inputs "libsepol") (search-input-file %build-inputs
"/lib/libsepol.a") "/lib/libsepol.a"))
(string-append "PYTHONLIBDIR=" (string-append "PYTHONLIBDIR="
(assoc-ref %outputs "python") #$output:python
"/lib/python" "/lib/python"
,(version-major+minor (package-version python)) #$(version-major+minor (package-version python))
"/site-packages/") "/site-packages/")
,flags)) #$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)))
(add-after 'build 'pywrap (add-after 'build 'pywrap
(lambda* (#:key make-flags #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
(apply invoke "make" "pywrap" make-flags))) (apply invoke "make" "pywrap" make-flags)))
(add-after 'install 'install-pywrap (add-after 'install 'install-pywrap
(lambda* (#:key make-flags outputs #:allow-other-keys) (lambda* (#:key make-flags #:allow-other-keys)
;; The build system uses "python setup.py install" to install ;; The build system uses "python setup.py install" to install
;; Python bindings. Instruct it to use the correct output. ;; Python bindings. Instruct it to use the correct output.
(substitute* "src/Makefile" (substitute* "src/Makefile"
(("--prefix=\\$\\(PREFIX\\)") (("--prefix=\\$\\(PREFIX\\)")
(string-append "--prefix=" (assoc-ref outputs "python")))) (string-append "--prefix=" #$output:python)))
(apply invoke "make" "install-pywrap" make-flags)))))))
(apply invoke "make" "install-pywrap" make-flags)))))))
;; These libraries are in "Requires.private" in libselinux.pc. ;; These libraries are in "Requires.private" in libselinux.pc.
(propagated-inputs (propagated-inputs
`(("libsepol" ,libsepol) (list libsepol pcre2))
("pcre2" ,pcre2)))
;; For pywrap phase ;; For pywrap phase
(inputs (inputs
`(("python" ,python-wrapper))) (list python-wrapper))
;; These inputs are only needed for the pywrap phase. ;; These inputs are only needed for the pywrap phase.
(native-inputs (native-inputs
`(("swig" ,swig) (list pkg-config swig))
("pkg-config" ,pkg-config)))
(synopsis "SELinux core libraries and utilities") (synopsis "SELinux core libraries and utilities")
(description (description
"The libselinux library provides an API for SELinux applications to get "The libselinux library provides an API for SELinux applications to get