guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: Revert "home-services: Demonadify 'on-first-login' handling."


From: guix-commits
Subject: 02/02: Revert "home-services: Demonadify 'on-first-login' handling."
Date: Tue, 16 Nov 2021 08:34:00 -0500 (EST)

efraim pushed a commit to branch master
in repository guix.

commit b2f81865905e87f859ca82ca40877623cda38a69
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Tue Nov 16 15:31:07 2021 +0200

    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(-)

diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index 992e522..7f5cda1 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]