summaryrefslogtreecommitdiff
path: root/gnu/home
diff options
context:
space:
mode:
authorEfraim Flashner <efraim@flashner.co.il>2021-11-16 15:31:07 +0200
committerEfraim Flashner <efraim@flashner.co.il>2021-11-16 15:31:07 +0200
commitb2f81865905e87f859ca82ca40877623cda38a69 (patch)
tree57fe8e0fd4392d5b676603ba5450a81e05b9ade4 /gnu/home
parent546f8537aad3ac03fef43e036d3cab3abc943915 (diff)
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.
Diffstat (limited to 'gnu/home')
-rw-r--r--gnu/home/services.scm8
1 files changed, 4 insertions, 4 deletions
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 @@ directory containing FILES."
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 @@ won't execute anything. You can check if xdg runtime directory exists,
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)