branch master updated: gnu: gpa: Add phase wrap-program.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mbakke pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new ea2a180  gnu: gpa: Add phase wrap-program.
ea2a180 is described below

commit ea2a180f68156ac05b435e953cd1231274244b9c
Author: Brice Waegeneire <address@hidden>
AuthorDate: Thu Mar 19 10:19:37 2020 +0100

    gnu: gpa: Add phase wrap-program.
    
    Fixes <https://bugs.gnu.org/36109>
    
    * gnu/packages/gnupg.scm (gpa)[arguments]: Add phase wrap-program.
    
    Signed-off-by: Marius Bakke <address@hidden>
---
 gnu/packages/gnupg.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index c5c3d52..9075978 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"))))
+               #t))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))
     (inputs