01/07: gnu: mig: Use gexps.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit cfda54c12fb83f8dea4536051ecdbb4dad17632d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Mar 4 15:46:41 2023 +0100

    gnu: mig: Use gexps.
    
    * gnu/packages/hurd.scm (mig)[arguments]: Use gexps.
---
 gnu/packages/hurd.scm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm
index 1dcec3ea3c..2c2cbb95ba 100644
--- a/gnu/packages/hurd.scm
+++ b/gnu/packages/hurd.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2014, 2015, 2016, 2017 Manolis Fragkiskos Ragkousis 
<manolis837@gmail.com>
-;;; Copyright © 2018, 2020-2022 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2018, 2020-2023 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2020 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
 ;;; Copyright © 2020, 2022 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
@@ -125,16 +125,16 @@ GNU/Hurd."
     (inputs (list gnumach-headers flex perl))
     (native-inputs
      (list flex bison))
-    (arguments `(#:tests? #f
-                 #:phases
-                 (modify-phases %standard-phases
-                   (add-after 'install 'patch-non-shebang-references
-                     (lambda* (#:key build inputs outputs #:allow-other-keys)
-                       (let ((perl (assoc-ref inputs "perl"))
-                             (out  (assoc-ref outputs "out")))
-                         (substitute* (string-append out "/bin/mig")
-                           (("perl ") (string-append perl "/bin/perl ")))
-                         #t))))))
+    (arguments
+     (list #:tests? #f
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'patch-non-shebang-references
+                 (lambda* (#:key build inputs outputs #:allow-other-keys)
+                   (let ((perl (assoc-ref inputs "perl"))
+                         (out  (assoc-ref outputs "out")))
+                     (substitute* (string-append out "/bin/mig")
+                       (("perl ") (string-append perl "/bin/perl ")))))))))
     (home-page 
"https://www.gnu.org/software/hurd/microkernel/mach/mig/gnu_mig.html";)
     (synopsis "Mach 3.0 interface generator for the Hurd")
     (description