summary refs log tree commit diff
path: root/gnu/home/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-11-16 13:19:21 +0100
committerLudovic Courtès <ludo@gnu.org>2021-11-16 14:37:34 +0100
commite5d8302b2ce596a0518ea5bd79b338f68a3246eb (patch)
treef15242ba4c5628c778dcf6fe6f30fd531b0e1768 /gnu/home/services.scm
parent472a0e82a52a3d5d841e1dfad6b13e26082a5750 (diff)
downloadguix-e5d8302b2ce596a0518ea5bd79b338f68a3246eb.tar.gz
home: services: Fix typo.
Reinstates 4dcec60fa6a93dbc93bef2cdb91e3633c705579e, minus the
regression it introduced.

* gnu/home/services.scm (compute-on-first-login-script): Use
'program-file', not 'gexp->script'.
Diffstat (limited to 'gnu/home/services.scm')
-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 7f5cda1cfb..04f4ec34d1 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)
-  (gexp->script
+  (program-file
    "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 m-on-first-login)
+(define (on-first-login-script-entry on-first-login)
   "Return, as a monadic value, an entry for the on-first-login script
 in the home environment directory."
-  (mlet %store-monad ((on-first-login m-on-first-login))
-        (return `(("on-first-login" ,on-first-login)))))
+  (with-monad %store-monad
+    (return `(("on-first-login" ,on-first-login)))))
 
 (define home-run-on-first-login-service-type
   (service-type (name 'home-run-on-first-login)