From 3acb615a3828207d55f52873b669c6917a16e10d Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Thu, 26 May 2022 20:36:11 +0300 Subject: gnu: libunistring: Rewrite using gexps. * gnu/packages/libunistring.scm (libunistring)[arguments]: Rewrite using gexps. Remove trailing #t. --- gnu/packages/libunistring.scm | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'gnu/packages/libunistring.scm') diff --git a/gnu/packages/libunistring.scm b/gnu/packages/libunistring.scm index 30e5048b33..eccd053a35 100644 --- a/gnu/packages/libunistring.scm +++ b/gnu/packages/libunistring.scm @@ -27,6 +27,7 @@ #:use-module (guix licenses) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix gexp) #:use-module (guix build-system gnu) #:use-module (gnu packages) #:use-module (gnu packages base)) @@ -50,17 +51,16 @@ ;; Work around parallel build issue whereby C files may be compiled before ;; config.h is built: see and ;; . - '(#:parallel-build? #f - #:phases (modify-phases %standard-phases - (add-after 'install 'move-static-library - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (static (assoc-ref outputs "static"))) - (with-directory-excursion (string-append out "/lib") - (install-file "libunistring.a" - (string-append static "/lib")) - (delete-file "libunistring.a") - #t))))))) + (list + #:parallel-build? #f + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'move-static-library + (lambda* (#:key outputs #:allow-other-keys) + (with-directory-excursion (string-append #$output "/lib") + (install-file "libunistring.a" + (string-append #$output:static "/lib")) + (delete-file "libunistring.a"))))))) (synopsis "C library for manipulating Unicode strings") (description "GNU libunistring is a library providing functions to manipulate -- cgit v1.2.3