summary refs log tree commit diff
diff options
context:
space:
mode:
authorBrice Waegeneire <brice@waegenei.re>2020-03-19 10:19:37 +0100
committerMarius Bakke <mbakke@fastmail.com>2020-03-19 10:48:27 +0100
commitea2a180f68156ac05b435e953cd1231274244b9c (patch)
tree824f31d89af2b2bc949c7129f1a6f85a670faec0
parent2ceb2ed99f4a1b7ee15313c81b0429998ab5d0c8 (diff)
downloadguix-ea2a180f68156ac05b435e953cd1231274244b9c.tar.gz
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 <mbakke@fastmail.com>
-rw-r--r--gnu/packages/gnupg.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index c5c3d5263f..9075978719 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