02/02: home-services: run-on-change: Handle first generation case.

[guix-commits]

wigust pushed a commit to branch wip-guix-home
in repository guix.

commit 0c7bb26435513a61814d98af1c790e43a74afb6e
Author: Andrew Tropin <andrew@trop.in>
AuthorDate: Tue Aug 31 15:24:25 2021 +0300

    home-services: run-on-change: Handle first generation case.
    
    * gnu/home-services.scm
    (compute-on-change-gexp): Handle first generation case.
    
    Signed-off-by: Oleg Pykhalov <go.wigust@gmail.com>
---
 gnu/home-services.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/home-services.scm b/gnu/home-services.scm
index 2a77349..5608c65 100644
--- a/gnu/home-services.scm
+++ b/gnu/home-services.scm
@@ -448,13 +448,14 @@ with one gexp, but many times, and all gexps must be 
idempotent.")))
              (if any-changes? (cadr x) "")))
          '#$pattern-gexp-tuples))
 
-      (if #$eval-gexps?
+      (if (and #$eval-gexps? (getenv "GUIX_OLD_HOME"))
           (begin
             (display "Evaling on-change gexps.\n\n")
             (for-each primitive-eval expressions-to-eval)
             (display "On-change gexps evaluation finished.\n\n"))
           (display "\
-On-change gexps won't evaluated, disabled by service configuration.\n"))))
+On-change gexps won't evaluated, disabled by service configuration or
+there are no previos generations.\n"))))
 
 (define home-run-on-change-service-type
   (service-type (name 'home-run-on-change)