From b2f81865905e87f859ca82ca40877623cda38a69 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Tue, 16 Nov 2021 15:31:07 +0200 Subject: Revert "home-services: Demonadify 'on-first-login' handling." This commit breaks building guix home guix home: error: reference to invalid output 'out' of derivation \ '/gnu/store/86zc4rijsswmfqnaq8rwixcxjl2zyl1c-on-first-login.drv' This reverts commit 4dcec60fa6a93dbc93bef2cdb91e3633c705579e. --- gnu/home/services.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnu/home/services.scm') diff --git a/gnu/home/services.scm b/gnu/home/services.scm index 992e522fa2..7f5cda1cfb 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 + (gexp->script "on-first-login" #~(let* ((xdg-runtime-dir (or (getenv "XDG_RUNTIME_DIR") (format #f "/run/user/~a" (getuid)))) @@ -294,11 +294,11 @@ (define (compute-on-first-login-script _ gexps) XDG_RUNTIME_DIR variable is set to apropriate value and manually execute the script by running '$HOME/.guix-home/on-first-login'"))))) -(define (on-first-login-script-entry on-first-login) +(define (on-first-login-script-entry m-on-first-login) "Return, as a monadic value, an entry for the on-first-login script in the home environment directory." - (with-monad %store-monad - (return `(("on-first-login" ,on-first-login))))) + (mlet %store-monad ((on-first-login m-on-first-login)) + (return `(("on-first-login" ,on-first-login))))) (define home-run-on-first-login-service-type (service-type (name 'home-run-on-first-login) -- cgit v1.2.3