From 779acb0ba1067b27d9ae32d0e4f9ad525bcda213 Mon Sep 17 00:00:00 2001 From: jgart Date: Fri, 18 Feb 2022 01:16:13 -0500 Subject: [PATCH] gnu: mercury: Remove trailing #T from phases and snippet. * gnu/packages/mercury.scm (mercury)[arguments]<#:phases>: Remove trailing #T. Signed-off-by: Mathieu Othacehe --- gnu/packages/mercury.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/gnu/packages/mercury.scm b/gnu/packages/mercury.scm index fe02b34a97..c87e65fdd1 100644 --- a/gnu/packages/mercury.scm +++ b/gnu/packages/mercury.scm @@ -100,8 +100,7 @@ (define-public mercury-minimal (invoke "mv" orig-name new-name) (with-directory-excursion new-name (apply patch-source-shebangs (list #:source src))))) - `((,libatomic-ops "source" "boehm_gc/libatomic_ops"))) - #t))) + `((,libatomic-ops "source" "boehm_gc/libatomic_ops")))))) (add-after 'replace-boehm-gc 'patch-paths (lambda _ (substitute* @@ -133,8 +132,7 @@ (define-public mercury-minimal "boehm_gc/Makefile.direct") (("/bin/sh") (which "sh")) (("/bin/pwd") (which "pwd")) - (("/bin/rm") (which "rm"))) - #t))))) + (("/bin/rm") (which "rm")))))))) (native-inputs `(("texinfo" ,texinfo) ("flex" ,flex) @@ -227,12 +225,10 @@ (define-public mercury (("/bin/sh") (which "sh")) (("/bin/pwd") (which "pwd")) (("/bin/rm") (which "rm")) - (("boehm_gc/.git") "boehm_gc")) - #t)) + (("boehm_gc/.git") "boehm_gc")))) (replace 'bootstrap (lambda _ - (invoke "./prepare.sh") - #t)))))) + (invoke "./prepare.sh"))))))) ;; TODO: Uncomment phase when tests are enabled. ;; (replace 'check ;; (lambda _