me/guix
Archived
1
0
Fork 0
Code Activity

gnu: policycoreutils: Use G-expression.

Browse source 
* gnu/packages/selinux.scm (policycoreutils)[arguments]: Convert to gexp.
This commit is contained in:
Marius Bakke 2022-08-13 14:13:10 +02:00
parent d7278e4020
commit e015fc174e
No known key found for this signature in database
GPG key ID: A2A06DF2A33A54FA
1 changed files with 38 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/selinux.scm
View file

@ -354,10 +354,11 @@ tools, and libraries designed to facilitate SELinux policy analysis.")
(package/inherit libsepol (package/inherit libsepol
(name "policycoreutils") (name "policycoreutils")
(arguments (arguments
`(#:test-target "test" (list
#:test-target "test"
#:make-flags #:make-flags
(let ((out (assoc-ref %outputs "out"))) #~(let ((out #$output))
(list (string-append "CC=" ,(cc-for-target)) (list (string-append "CC=" #$(cc-for-target))
(string-append "PREFIX=" out) (string-append "PREFIX=" out)
(string-append "LOCALEDIR=" out "/share/locale") (string-append "LOCALEDIR=" out "/share/locale")
(string-append "BASHCOMPLETIONDIR=" out (string-append "BASHCOMPLETIONDIR=" out
@ -377,10 +378,10 @@ tools, and libraries designed to facilitate SELinux policy analysis.")
(string-append "INITDIR=" out "/etc/rc.d/init.d") (string-append "INITDIR=" out "/etc/rc.d/init.d")
(string-append "SELINUXDIR=" out "/etc/selinux"))) (string-append "SELINUXDIR=" out "/etc/selinux")))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(add-after 'unpack 'enter-dir (add-after 'unpack 'enter-dir
(lambda _ (chdir ,name))) (lambda _ (chdir #$name)))
(add-after 'enter-dir 'ignore-/usr-tests (add-after 'enter-dir 'ignore-/usr-tests
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Rewrite lookup paths for header files. ;; Rewrite lookup paths for header files.