gnu: joycond: Small refactoring.

* gnu/packages/games.scm (joycond)[arguments]<#:phases>: Use (assoc-ref
outputs "out") instead of %output.

1 files changed, 12 insertions, 8 deletions

diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index 44558b88d4..58d28d7da1 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)