Subject: bug#58939: closed (Re: [bug#58939] [PATCH] gnu: strawberry: Remove trailing #t from phases and snippet.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 03 Nov 2022 17:53:04 +0000

Your bug report

#58939: [PATCH] gnu: strawberry: Remove trailing #t from phases and snippet.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
58939: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=58939
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#58939] [PATCH] gnu: strawberry: Remove trailing #t from phases and snippet.
From: Christopher Baines <[email-masked]>
To: Michael Rohleder <[email-masked]>
Cc: [email-masked], [email-masked]
Date: Thu, 03 Nov 2022 18:52:18 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Michael Rohleder <[email-masked]> writes:

> * gnu/packages/music.scm (strawberry)[arguments]<#:phases>: Remove trailing #t.
> [snippet]: Likewise.
> ---
>  gnu/packages/music.scm | 9 +++------
>  1 file changed, 3 insertions(+), 6 deletions(-)

Thanks! Pushed to master as 318581c5fc8f7716ad65d670eb7654a03a0e785d.

Chris

Subject: [PATCH] gnu: strawberry: Remove trailing #t from phases and snippet.
From: Michael Rohleder <[email-masked]>
To: [email-masked]
Cc: Michael Rohleder <[email-masked]>
Date: Tue, 1 Nov 2022 01:07:16 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/music.scm (strawberry)[arguments]<#:phases>: Remove trailing #t.
[snippet]: Likewise.
---
 gnu/packages/music.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index d493b09f07..c8dd415523 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -504,8 +504,7 @@ (define-public strawberry
                    (find-files "3rdparty"
                                (lambda (file stat)
                                  (string-match "^3rdparty/[^/]*$" file))
-                               #:directories? #t))
-                  #t))))
+                               #:directories? #t))))))
     (build-system cmake-build-system)
     (arguments
      `(#:test-target "run_strawberry_tests"
@@ -516,15 +515,13 @@ (define-public strawberry
              (let ((out             (assoc-ref outputs "out"))
                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
                (wrap-program (string-append out "/bin/strawberry")
-                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
-               #t)))
+                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))))))
          (add-before 'check 'pre-check
            (lambda* (#:key inputs #:allow-other-keys)
              (let ((xorg-server (assoc-ref inputs "xorg-server")))
                (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
                (setenv "DISPLAY" ":1")
-               (setenv "HOME" (getcwd))
-               #t))))))
+               (setenv "HOME" (getcwd))))))))
     (native-inputs
      `(("gettext" ,gettext-minimal)
        ("googletest" ,googletest)
-- 
2.38.0