Subject: bug#40129: closed (Re: [bug#40129] [PATCH] gnu: gpa: Add phase wrap-program.)

From: [email-masked] (GNU bug Tracking System)
Date: Thu, 19 Mar 2020 09:52:03 +0000

Your bug report

#40129: [PATCH] gnu: gpa: Add phase wrap-program.

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].

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

Subject: Re: [bug#40129] [PATCH] gnu: gpa: Add phase wrap-program.
From: Marius Bakke <[email-masked]>
To: Brice Waegeneire <[email-masked]>, [email-masked]
Cc: [email-masked]
Date: Thu, 19 Mar 2020 10:51:05 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Brice Waegeneire <[email-masked]> writes:

> Fixes <https://bugs.gnu.org/36109>
>
> * gnu/packages/gnupg.scm (gpa)[arguments]: Add phase wrap-program.

Applied, thanks!

[...]

> +         (add-after 'install 'wrap-program
> +           (lambda* (#:key inputs outputs #:allow-other-keys)
> +             (let ((out (assoc-ref outputs "out"))
> +                   (gnupg (assoc-ref inputs "gnupg")))
> +               (wrap-program (string-append out "/bin/gpa")
> +                 `("PATH" ":" prefix (,(string-append gnupg "/bin")))
> +                 )))))))

I ended this phase on a #t and fixed the lonely parens as reported by
'guix lint gpa'.

Subject: [PATCH] gnu: gpa: Add phase wrap-program.
From: Brice Waegeneire <[email-masked]>
To: [email-masked]
Date: Thu, 19 Mar 2020 10:19:37 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Fixes <https://bugs.gnu.org/36109>

* gnu/packages/gnupg.scm (gpa)[arguments]: Add phase wrap-program.
---
 gnu/packages/gnupg.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index c5c3d5263f..30658c7cb7 100644
--- a/gnu/packages/gnupg.scm
+++ b/gnu/packages/gnupg.scm
@@ -975,6 +975,16 @@ however, pgpdump produces more detailed and easier to understand output.")
                (base32
                 "1cbpc45f8qbdkd62p12s3q2rdq6fa5xdzwmcwd3xrj55bzkspnwm"))))
     (build-system gnu-build-system)
+    (arguments
+     `(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-program
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out"))
+                   (gnupg (assoc-ref inputs "gnupg")))
+               (wrap-program (string-append out "/bin/gpa")
+                 `("PATH" ":" prefix (,(string-append gnupg "/bin")))
+                 )))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs

base-commit: 771c5e155d7862ed91a5d503eecc00c1db1150ad
-- 
2.25.1