From cfda54c12fb83f8dea4536051ecdbb4dad17632d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 4 Mar 2023 15:46:41 +0100 Subject: [PATCH] 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 -;;; Copyright © 2018, 2020-2022 Ludovic Courtès +;;; Copyright © 2018, 2020-2023 Ludovic Courtès ;;; Copyright © 2020 Efraim Flashner ;;; Copyright © 2020 Marius Bakke ;;; Copyright © 2020, 2022 Jan (janneke) Nieuwenhuizen @@ -125,16 +125,16 @@ (define-public mig (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