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

[Brice Waegeneire]

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