From eac5171246da875f5996621c5329c833fd85b891 Mon Sep 17 00:00:00 2001 From: Andrew Tropin Date: Sun, 2 Jun 2024 15:05:59 +0400 Subject: Revert "services: home: Use pairs instead of lists." This reverts commit dbeef44f3c520816251bde74c1005915a637e1ef. Despite the more semantically correct data type, it doesn't follow the style of the most services and also breaks user-facing API. Change-Id: Ib4ef4e9cd2f53ac853a5b7c7c90e57c35c99a5ea --- gnu/services/guix.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index 3818749baa..96f5ecaac0 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -696,7 +696,7 @@ ca-certificates.crt file in the system profile." (define (guix-home-shepherd-service config) (map (match-lambda - (((? string? user) . (? home-environment? he)) + ((user he) (shepherd-service (documentation "Activate Guix Home.") (requirement '(user-processes)) @@ -710,9 +710,7 @@ ca-certificates.crt file in the system profile." (list (string-append "HOME=" (passwd:dir (getpw #$user))) "GUIX_SYSTEM_IS_RUNNING_HOME_ACTIVATE=t") #:group (group:name (getgrgid (passwd:gid (getpw #$user)))))) - (stop #~(make-kill-destructor)))) - (e (error "Invalid value for guix-home, it should be in a form of -(\"user-name\" . home-environment), but the following value is provided:\n" e))) + (stop #~(make-kill-destructor))))) config)) (define guix-home-service-type -- cgit v1.2.3