apteryx pushed a commit to branch master
in repository guix.
commit f975b416a7dd98e3b3f4fd0127c3f63917888653
Author: Tomas Volf <[email protected]>
AuthorDate: Tue Apr 1 00:10:14 2025 +0200
services: gitolite-accounts: Convert to match-record.
* gnu/services/version-control.scm (gitolite-accounts): Use match-record
instead of match-lambda with $.
Change-Id: I37e3018513a8f20eeed8614dff46a63b8d7c2883
Signed-off-by: Maxim Cournoyer <[email protected]>
---
gnu/services/version-control.scm | 25 +++++++++++++------------
1 file changed, 13 insertions(+), 12 deletions(-)
diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm
index e39bb509c2..07984d309e 100644
--- a/gnu/services/version-control.scm
+++ b/gnu/services/version-control.scm
@@ -336,18 +336,19 @@ access to exported repositories under @file{/srv/git}."
(default (gitolite-rc-file)))
(admin-pubkey gitolite-configuration-admin-pubkey))
-(define gitolite-accounts
- (match-lambda
- (($ <gitolite-configuration> package user group home-directory
- rc-file admin-pubkey)
- ;; User group and account to run Gitolite.
- (list (user-group (name group) (system? #t))
- (user-account
- (name user)
- (group group)
- (system? #t)
- (comment "Gitolite user")
- (home-directory home-directory))))))
+(define (gitolite-accounts config)
+ (match-record config <gitolite-configuration>
+ (user group home-directory)
+ ;; User group and account to run Gitolite.
+ (list (user-group
+ (name group)
+ (system? #t))
+ (user-account
+ (name user)
+ (group group)
+ (system? #t)
+ (comment "Gitolite user")
+ (home-directory home-directory)))))
(define gitolite-activation
(match-lambda
