amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: gitolite-accounts: Convert to match-record.

Browse source 
* gnu/services/version-control.scm (gitolite-accounts): Use match-record
instead of match-lambda with $.

Change-Id: I37e3018513a8f20eeed8614dff46a63b8d7c2883
Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Tomas Volf 2025-04-01 00:10:14 +02:00 • committed by Maxim Cournoyer
parent ce95350bb2
commit f975b416a7
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
gnu/services/version-control.scm
View file

@ -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