me
/
guix
Archived
1
0
Fork 0
Code

gnu: mumi: Do not hard-code "2.2". 

* gnu/packages/mail.scm (mumi)[arguments]: Add #:modules and
 #:imported-modules.  In 'wrap-executable' phase, use
'target-guile-effective-version' instead of hard-coding "2.2".
master
Ludovic Courtès 2019-12-21 21:14:32 +01:00
parent 89bbcc80d7
commit 1214684bbd
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/mail.scm
View File

@ -2952,14 +2952,23 @@ replacement for the @code{urlview} program.")
"1575gn5p086sjxz5hvg6iyskq6cxf6vf50s9nsc4xgrbcqa3pv2c")))) "1575gn5p086sjxz5hvg6iyskq6cxf6vf50s9nsc4xgrbcqa3pv2c"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases `(#:modules ((guix build gnu-build-system)
((guix build guile-build-system)
#:select (target-guile-effective-version))
(guix build utils))
#:imported-modules ((guix build guile-build-system)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'install 'wrap-executable (add-after 'install 'wrap-executable
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin")) (bin (string-append out "/bin"))
(scm (string-append out "/share/guile/site/2.2")) (version (target-guile-effective-version))
(go (string-append out "/lib/guile/2.2/site-ccache"))) (scm (string-append out "/share/guile/site/" version))
(go (string-append out "/lib/guile/" version
"/site-ccache")))
(wrap-program (string-append bin "/mumi") (wrap-program (string-append bin "/mumi")
`("GUILE_LOAD_PATH" ":" prefix `("GUILE_LOAD_PATH" ":" prefix
(,scm ,(getenv "GUILE_LOAD_PATH"))) (,scm ,(getenv "GUILE_LOAD_PATH")))