GNU bug report logs - #77186
[PATCH 00/13] Revamp the gitolite-service-type

Previous Next

Full log

View this message in rfc822 format

From: Tomas Volf <~@wolfsden.cz>
To: 77186 <at> debbugs.gnu.org
Cc: Tomas Volf <~@wolfsden.cz>
Subject: [bug#77186] [PATCH v2 08/14] services: gitolite-accounts: Convert to match-record.
Date: Tue,  1 Apr 2025 00:10:14 +0200

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

Change-Id: I37e3018513a8f20eeed8614dff46a63b8d7c2883
---
 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 @@ (define-record-type* <gitolite-configuration>
                   (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
-- 
2.49.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.