diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2024-01-22 12:44:46 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2024-01-22 13:54:44 +0100 |
| commit | 389c6082a440238accdd4e2df864135004dbb806 (patch) | |
| tree | f8f8627b72a17cb4136b31ecc1b1c553663e6b64 | |
| parent | 29353820f2df8e4434bbdae2d36b36d0151cc027 (diff) | |
| download | guix-389c6082a440238accdd4e2df864135004dbb806.tar.gz guix-389c6082a440238accdd4e2df864135004dbb806.zip | |
import/cran: Set HOME when ExperimentHub is among the inputs.
* guix/import/cran.scm (phases-for-inputs): Add 'set-HOME phase when
ExperimentHub is among inputs.
Change-Id: Ie3a2443934704eed8694a76a651b806209722421
| -rw-r--r-- | guix/import/cran.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm index d49bd96c9a..db9250faec 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -677,7 +677,9 @@ of META, a package in REPOSITORY." of package names for all input packages." (let ((rules (list (lambda () - (and (member "styler" input-names) + (and (any (lambda (name) + (member name '("styler" "ExperimentHub"))) + input-names) '(add-after 'unpack 'set-HOME (lambda _ (setenv "HOME" "/tmp"))))) (lambda () |