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 4dcec60fa6.
This commit is contained in:
Efraim Flashner 2021-11-16 15:31:07 +02:00
parent 546f8537aa
commit b2f8186590
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -275,7 +275,7 @@ (define home-files-service-type
will be put in @file{~/.guix-home/files}."))) will be put in @file{~/.guix-home/files}.")))
(define (compute-on-first-login-script _ gexps) (define (compute-on-first-login-script _ gexps)
(computed-file (gexp->script
"on-first-login" "on-first-login"
#~(let* ((xdg-runtime-dir (or (getenv "XDG_RUNTIME_DIR") #~(let* ((xdg-runtime-dir (or (getenv "XDG_RUNTIME_DIR")
(format #f "/run/user/~a" (getuid)))) (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 XDG_RUNTIME_DIR variable is set to apropriate value and manually execute the
script by running '$HOME/.guix-home/on-first-login'"))))) 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 "Return, as a monadic value, an entry for the on-first-login script
in the home environment directory." in the home environment directory."
(with-monad %store-monad (mlet %store-monad ((on-first-login m-on-first-login))
(return `(("on-first-login" ,on-first-login))))) (return `(("on-first-login" ,on-first-login)))))
(define home-run-on-first-login-service-type (define home-run-on-first-login-service-type
(service-type (name 'home-run-on-first-login) (service-type (name 'home-run-on-first-login)