diff mbox series

[bug#51915] home: services: Change computed-file to scheme-file.

Message ID 877dd7p3vy.fsf@trop.in
State Accepted
Headers show
Series [bug#51915] home: services: Change computed-file to scheme-file. | expand

Checks

Context Check Description
cbaines/applying patch fail View Laminar job
cbaines/issue success View issue

Commit Message

Andrew Tropin Nov. 17, 2021, 8:22 a.m. UTC 
* gnu/home/services.scm (compute-on-first-login-script): Use
'scheme-file' instead of 'computed-file'.
---
It seems there was a problem with 4dcec60fa6a93dbc93bef2cdb91e3633c705579e:

--8<---------------cut here---------------start------------->8---
guix time-machine --commit=4dcec60fa6a93dbc93bef2cdb91e3633c705579e -- home build -e "((@ (gnu home) home-environment))"
guix home: error: reference to invalid output 'out' of derivation '/gnu/store/a6cwlz5yibi7w3pfm60j26inf434ard2-on-first-login.drv'
--8<---------------cut here---------------end--------------->8---

This patch should fix it.

 gnu/home/services.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

Comments

Ludovic Courtès Nov. 18, 2021, 8:39 a.m. UTC | #1 
Hi,

Andrew Tropin <andrew@trop.in> skribis:

> --- a/gnu/home/services.scm
> +++ b/gnu/home/services.scm
> @@ -275,7 +275,7 @@ (define home-files-service-type
>  will be put in @file{~/.guix-home/files}.")))
>  
>  (define (compute-on-first-login-script _ gexps)
> -  (computed-file
> +  (scheme-file
>     "on-first-login"

This was fixed in e5d8302b2ce596a0518ea5bd79b338f68a3246eb (with
‘program-file’.)  Apologies for the mistake.

Thanks,
Ludo’.
Andrew Tropin Nov. 18, 2021, 9:02 a.m. UTC | #2 
On 2021-11-18 09:39, Ludovic Courtès wrote:

> Hi,
>
> Andrew Tropin <andrew@trop.in> skribis:
>
>> --- a/gnu/home/services.scm
>> +++ b/gnu/home/services.scm
>> @@ -275,7 +275,7 @@ (define home-files-service-type
>>  will be put in @file{~/.guix-home/files}.")))
>>  
>>  (define (compute-on-first-login-script _ gexps)
>> -  (computed-file
>> +  (scheme-file
>>     "on-first-login"
>
> This was fixed in e5d8302b2ce596a0518ea5bd79b338f68a3246eb (with
> ‘program-file’.)  Apologies for the mistake.

Thank you very much for the fix! :)

>
> Thanks,
> Ludo’.
diff mbox series

Patch

diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index 992e522fa2..0deaadaf3e 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -275,7 +275,7 @@  (define home-files-service-type
 will be put in @file{~/.guix-home/files}.")))
 
 (define (compute-on-first-login-script _ gexps)
-  (computed-file
+  (scheme-file
    "on-first-login"
    #~(let* ((xdg-runtime-dir (or (getenv "XDG_RUNTIME_DIR")
                                  (format #f "/run/user/~a" (getuid))))