diff mbox series

[bug#77186,01/13] services: gitolite-rc-file-compiler: Switch to match-record.

Message ID 9c1e4968f7f9e7faaa80212e3b08dd0e924b71df.1742661305.git.~@wolfsden.cz
State New
Headers
Series Revamp the gitolite-service-type |

Commit Message

Tomas Volf March 22, 2025, 5 p.m. UTC 
  * gnu/services/version-control.scm (gitolite-rc-file-compiler): Use
match-record instead of match with $.

Change-Id: Ia2f4985e921aee5f8859d1858f7c186b707d7a36
---
 gnu/services/version-control.scm | 54 ++++++++++++++++----------------
 1 file changed, 27 insertions(+), 27 deletions(-)
diff mbox series

Patch

diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm
index 06b6ff224d..e73833713e 100644
--- a/gnu/services/version-control.scm
+++ b/gnu/services/version-control.scm
@@ -267,33 +267,33 @@  (define-record-type* <gitolite-rc-file>
 
 (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