branch master updated: gnu: joycond: Small refactoring.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 692cce5  gnu: joycond: Small refactoring.
692cce5 is described below

commit 692cce52cafd5477056835fd01f7b283afeace46
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Oct 8 12:14:42 2021 +0200

    gnu: joycond: Small refactoring.
    
    * gnu/packages/games.scm (joycond)[arguments]<#:phases>: Use (assoc-ref
    outputs "out") instead of %output.
---
 gnu/packages/games.scm | 20 ++++++++++++--------
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 44558b88..58d28d7 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -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)