From 2bae0081f9bb5a73798a2cd9f655debf54b44872 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 24 Sep 2023 02:00:00 +0200
Subject: [PATCH] gnu: nmrpflash: Use G-expressions.

* gnu/packages/admin.scm (nmrpflash)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/admin.scm | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 2fa64207b0..22cc678191 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -5054,21 +5054,22 @@ (define-public nmrpflash
         (base32 "183nvxqdn8klin5f14f4cv9vjymj0izy0qmj1l76igmlcq7ravwx"))
        (file-name (git-file-name name version))))
     (build-system gnu-build-system)
+    (arguments
+     (list
+      #:tests? #f                       ; none exist
+      #:make-flags
+      #~(list (string-append "CC=" #$(cc-for-target))
+              (string-append "PREFIX=" #$output))
+      #:phases
+      #~(modify-phases %standard-phases
+          (delete 'configure)
+          (add-before 'install 'prepare-install
+            (lambda _
+              (mkdir-p (string-append #$output "/bin")))))))
     (native-inputs
      (list pkg-config))
     (inputs
      (list libnl libpcap))
-    (arguments
-     `(#:tests? #f ; None exist
-       #:make-flags
-       (list (string-append "CC=" ,(cc-for-target))
-             (string-append "PREFIX=" (assoc-ref %outputs "out")))
-       #:phases
-       (modify-phases %standard-phases
-         (delete 'configure)
-         (add-before 'install 'prepare-install
-           (lambda* (#:key outputs #:allow-other-keys)
-             (mkdir-p (string-append (assoc-ref outputs "out") "/bin")))))))
     (home-page "https://github.com/jclehner/nmrpflash")
     (synopsis "Reflash (``unbrick'') Netgear devices with corrupted firmware")
     (description "This package provides a utility to flash a new firmware