GNU bug report logs - #40129
[PATCH] gnu: gpa: Add phase wrap-program.

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 40129 in the body.
You can then email your comments to 40129 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Brice Waegeneire <brice <at> waegenei.re>
To: guix-patches <at> gnu.org
Subject: [PATCH] gnu: gpa: Add phase wrap-program.
Date: Thu, 19 Mar 2020 10:19:37 +0100

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

Message #10 received at 40129-done <at> debbugs.gnu.org (full text, mbox):

From: Marius Bakke <mbakke <at> fastmail.com>
To: Brice Waegeneire <brice <at> waegenei.re>, 40129-done <at> debbugs.gnu.org
Cc: 36109-done <at> debbugs.gnu.org
Subject: Re: [bug#40129] [PATCH] gnu: gpa: Add phase wrap-program.
Date: Thu, 19 Mar 2020 10:51:05 +0100

[Message part 1 (text/plain, inline)]

Brice Waegeneire <brice <at> waegenei.re> 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'.

[signature.asc (application/pgp-signature, inline)]

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.