apteryx pushed a commit to branch master
in repository guix.

commit 28031f04d9aee2fa6ab1f411238ea5170890ff21
Author: Tomas Volf <[email protected]>
AuthorDate: Tue Apr 1 00:10:12 2025 +0200

    services: gitolite-rc-file: Export default value for enable.
    
    * gnu/services/version-control.scm (gitolite-rc-file-default-enable): New
    exported variable.
    (gitolite-rc-file-compiler)[enable]: Use it.
    
    Change-Id: Ie6326ff69f3d454d96db6629dd5387757567d68f
    Signed-off-by: Maxim Cournoyer <[email protected]>
---
 gnu/services/version-control.scm | 22 +++++++++++++---------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/gnu/services/version-control.scm b/gnu/services/version-control.scm
index b93cb9f590..87f134cb23 100644
--- a/gnu/services/version-control.scm
+++ b/gnu/services/version-control.scm
@@ -65,6 +65,7 @@
             gitolite-rc-file-roles
             gitolite-rc-file-enable
             gitolite-rc-file-extra-content
+            gitolite-rc-file-default-enable
 
             gitolite-service-type
 
@@ -244,6 +245,17 @@ access to exported repositories under @file{/srv/git}."
 ;;; Gitolite
 ;;;
 
+(define gitolite-rc-file-default-enable
+  '("help"
+    "desc"
+    "info"
+    "perms"
+    "writable"
+    "ssh-authkeys"
+    "git-config"
+    "daemon"
+    "gitweb"))
+
 (define-record-type* <gitolite-rc-file>
   gitolite-rc-file make-gitolite-rc-file
   gitolite-rc-file?
@@ -263,15 +275,7 @@ access to exported repositories under @file{/srv/git}."
                    (default '(("READERS" . 1)
                               ("WRITERS" . 1))))
   (enable          gitolite-rc-file-enable
-                   (default '("help"
-                              "desc"
-                              "info"
-                              "perms"
-                              "writable"
-                              "ssh-authkeys"
-                              "git-config"
-                              "daemon"
-                              "gitweb")))
+                   (default gitolite-rc-file-default-enable))
   (extra-content   gitolite-rc-extra-content
                    (default "")))
 

Reply via email to