Subject: [bug#72856] [PATCH 2/2] gnu: uniutils: Use GEXPs.

From: "Artyom V. Poptsov" <[email-masked]>
Date: Wed, 28 Aug 2024 19:27:41 +0300

* gnu/packages/textutils.scm (uniutils): Use GEXPs.

Change-Id: I9e59018b41820778b92e69aad2f64c715986c4e9
---
 gnu/packages/textutils.scm | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/textutils.scm b/gnu/packages/textutils.scm
index 52aaa0771d..4ff50b6732 100644
--- a/gnu/packages/textutils.scm
+++ b/gnu/packages/textutils.scm
@@ -486,19 +486,18 @@ (define-public uniutils
         (base32 "0z4ibnd2zzya489vl84cfh82bmdwdhf0isf1myqwrs3s9s0vqyyn"))))
     (build-system gnu-build-system)
     (arguments
-     '(#:configure-flags '("--disable-dependency-tracking")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'build 'fix-paths
-           (lambda* (#:key outputs inputs #:allow-other-keys)
-             (let ((out (assoc-ref outputs "out"))
-                   (a2b (assoc-ref inputs "ascii2binary"))
-                   (iconv (assoc-ref inputs "libiconv")))
-               (substitute* "utf8lookup"
-                 (("^ascii2binary ") (string-append a2b "/bin/ascii2binary "))
-                 (("^uniname ") (string-append out "/bin/uniname "))
-                 (("^iconv ") (string-append iconv "/bin/iconv ")))
-             #t))))))
+     (list #:configure-flags #~(list "--disable-dependency-tracking")
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'build 'fix-paths
+                 (lambda* (#:key outputs inputs #:allow-other-keys)
+                   (let ((out (assoc-ref outputs "out"))
+                         (a2b (assoc-ref inputs "ascii2binary"))
+                         (iconv (assoc-ref inputs "libiconv")))
+                     (substitute* "utf8lookup"
+                       (("^ascii2binary ") (string-append a2b "/bin/ascii2binary "))
+                       (("^uniname ") (string-append out "/bin/uniname "))
+                       (("^iconv ") (string-append iconv "/bin/iconv ")))))))))
     (inputs
      (list ascii2binary libiconv))
     (home-page "https://billposer.org/Software/unidesc.html")
-- 
2.45.2