summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorAndrew Tropin <andrew@trop.in>2024-06-02 15:05:59 +0400
committerAndrew Tropin <andrew@trop.in>2024-06-02 15:06:16 +0400
commiteac5171246da875f5996621c5329c833fd85b891 (patch)
treeed1828c72e5cae96d15acc64f2030e3a8f6f4a8b /gnu/services
parentd82e36591e4bbedb20131cba702ad677f39de954 (diff)
Revert "services: home: Use pairs instead of lists."HEADmaster
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
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/guix.scm6
1 files changed, 2 insertions, 4 deletions
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