apteryx pushed a commit to branch master
in repository guix.
commit a52a7d1653cf6d75e1eecbc7b790e87e600587b3
Author: Tomas Volf <[email protected]>
AuthorDate: Tue Apr 1 00:10:07 2025 +0200
services: gitolite-rc-file-compiler: Switch to match-record.
* gnu/services/version-control.scm (gitolite-rc-file-compiler): Use
match-record instead of match with $.
Change-Id: Ia2f4985e921aee5f8859d1858f7c186b707d7a36
Signed-off-by: Maxim Cournoyer <[email protected]>
---
gnu/services/version-control.scm | 55 ++++++++++++++++++++--------------------
1 file changed, 28 insertions(+), 27 deletions(-)
diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm
index 06b6ff224d..f5558e9197 100644
--- a/gnu/services/version-control.scm
+++ b/gnu/services/version-control.scm
@@ -5,6 +5,7 @@
;;; Copyright © 2017 Clément Lassieur <[email protected]>
;;; Copyright © 2018 Christopher Baines <[email protected]>
;;; Copyright © 2021 Julien Lepiller <[email protected]>
+;;; Copyright © 2025 Tomas Volf <[email protected]>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -267,33 +268,33 @@ access to exported repositories under @file{/srv/git}."
(define-gexp-compiler (gitolite-rc-file-compiler
(file <gitolite-rc-file>) system target)
- (match file
- (($ <gitolite-rc-file> umask local-code unsafe-pattern git-config-keys
roles enable)
- (apply text-file* "gitolite.rc"
- `("%RC = (\n"
- " UMASK => " ,(format #f "~4,'0o" umask) ",\n"
- " GIT_CONFIG_KEYS => '" ,git-config-keys "',\n"
- ,(if local-code
- (simple-format #f " LOCAL_CODE => \"~A\",\n" local-code)
- "")
- " ROLES => {\n"
- ,@(map (match-lambda
- ((role . value)
- (simple-format #f " ~A => ~A,\n" role value)))
- roles)
- " },\n"
- "\n"
- " ENABLE => [\n"
- ,@(map (lambda (value)
- (simple-format #f " '~A',\n" value))
- enable)
- " ],\n"
- ");\n"
- "\n"
- ,(if unsafe-pattern
- (string-append "$UNSAFE_PATT = qr(" unsafe-pattern ");")
- "")
- "1;\n")))))
+ (match-record file <gitolite-rc-file>
+ (umask local-code unsafe-pattern git-config-keys roles enable)
+ (apply text-file* "gitolite.rc"
+ `("%RC = (\n"
+ " UMASK => " ,(format #f "~4,'0o" umask) ",\n"
+ " GIT_CONFIG_KEYS => '" ,git-config-keys "',\n"
+ ,(if local-code
+ (simple-format #f " LOCAL_CODE => \"~A\",\n" local-code)
+ "")
+ " ROLES => {\n"
+ ,@(map (match-lambda
+ ((role . value)
+ (simple-format #f " ~A => ~A,\n" role value)))
+ roles)
+ " },\n"
+ "\n"
+ " ENABLE => [\n"
+ ,@(map (lambda (value)
+ (simple-format #f " '~A',\n" value))
+ enable)
+ " ],\n"
+ ");\n"
+ "\n"
+ ,(if unsafe-pattern
+ (string-append "$UNSAFE_PATT = qr(" unsafe-pattern ");")
+ "")
+ "1;\n"))))
(define-record-type* <gitolite-configuration>
gitolite-configuration make-gitolite-configuration
