me/guix
Archived
1
0
Fork 0
Code Activity

gnu: joycond: Small refactoring.

Browse source 
* gnu/packages/games.scm (joycond)[arguments]<#:phases>: Use (assoc-ref
outputs "out") instead of %output.
This commit is contained in:
Nicolas Goaziou 2021-10-08 12:14:42 +02:00
parent f44d7f68e6
commit 692cce52ca
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 12 additions and 8 deletions

20
gnu/packages/games.scm
View file

@ -1504,20 +1504,24 @@ automata. The following features are available:
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"07z86yp27vxc0b44jgvf1vpa69rh3wdvd1xbzcsrj3f32743pv5a"))))
(base32 "07z86yp27vxc0b44jgvf1vpa69rh3wdvd1xbzcsrj3f32743pv5a"))))
(build-system cmake-build-system)
(arguments
`(#:tests? #f ;no test suite
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'fix-bin-location
(lambda* _
(substitute* "CMakeLists.txt"
(("/lib/udev/rules.d") (string-append %output "/lib/udev/rules.d"))
(("/etc/systemd/system") (string-append %output "/etc/systemd/system"))
(("/etc/modules-load.d") (string-append %output "/etc/modules-load.d"))
(("/usr/bin") (string-append %output "/bin"))))))))
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* "CMakeLists.txt"
(("/lib/udev/rules.d")
(string-append out "/lib/udev/rules.d"))
(("/etc/systemd/system")
(string-append out "/etc/systemd/system"))
(("/etc/modules-load.d")
(string-append out "/etc/modules-load.d"))
(("/usr/bin")
(string-append out "/bin")))))))))
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs
`(("eudev" ,eudev)