diff mbox

gnu: shroud: Wrap 'shroud' with 'GUILE_LOAD_COMPILED_PATH'.

Message ID 20160930122157.4495-1-iyzsong@gmail.com
State New
Headers show

Commit Message

宋文武 Sept. 30, 2016, 12:21 p.m. UTC
* gnu/packages/password-utils.scm (shroud)[arguments]: New field.
---
 gnu/packages/password-utils.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

Comments

=?utf-8?B?5a6L5paH5q2m?= Oct. 1, 2016, 1:02 a.m. UTC | #1
Pushed myself.

With this, I can run it without guile in profile.  It seems wrap it with
GUILE_LOAD_PATH is unnecessary, so I skip that.
diff mbox

Patch

diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index d2410c6..30b538d 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -109,6 +109,17 @@  algorithms AES or Twofish.")
                (base32
                 "1y43yhgy2zbrk5bqj3qyx9rkcz2bma9sinlrg7dip3jqms9gq4lr"))))
     (build-system gnu-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         (add-after 'install 'wrap-shroud
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out       (assoc-ref outputs "out"))
+                    (ccachedir (string-append out "/lib/guile/2.0/ccache"))
+                    (prog      (string-append out "/bin/shroud")))
+               (wrap-program prog
+                 `("GUILE_LOAD_COMPILED_PATH" ":" prefix (,ccachedir)))
+               #t))))))
     (inputs
      `(("guile" ,guile-2.0)
        ("gnupg" ,gnupg)