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
This commit is contained in:
Ricardo Wurmus 2024-01-22 12:44:46 +01:00
parent 29353820f2
commit 389c6082a4
No known key found for this signature in database
GPG key ID: 197A5888235FACAC

View file

@ -677,7 +677,9 @@ (define (phases-for-inputs input-names)
of package names for all input packages." of package names for all input packages."
(let ((rules (let ((rules
(list (lambda () (list (lambda ()
(and (member "styler" input-names) (and (any (lambda (name)
(member name '("styler" "ExperimentHub")))
input-names)
'(add-after 'unpack 'set-HOME '(add-after 'unpack 'set-HOME
(lambda _ (setenv "HOME" "/tmp"))))) (lambda _ (setenv "HOME" "/tmp")))))
(lambda () (lambda ()