[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: services: cgit: Simplify 'serialize-module-link-path'.
From: |
Clément Lassieur |
Subject: |
02/05: services: cgit: Simplify 'serialize-module-link-path'. |
Date: |
Wed, 11 Apr 2018 15:24:23 -0400 (EDT) |
snape pushed a commit to branch master
in repository guix.
commit 36027f05e901c4d70374ca8d7e8ab87e58fe5300
Author: Clément Lassieur <address@hidden>
Date: Tue Mar 20 19:44:40 2018 +0100
services: cgit: Simplify 'serialize-module-link-path'.
* gnu/services/cgit.scm (serialize-module-link-path): Remove
STRING-DROP-RIGHT
and UGLIFY-FIELD-NAME.
---
gnu/services/cgit.scm | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm
index b263aa4..3c685f1 100644
--- a/gnu/services/cgit.scm
+++ b/gnu/services/cgit.scm
@@ -150,10 +150,7 @@
(if (null? val) ""
(match val
((path text)
- (format #t "repo.~a.~a=~a\n"
- (string-drop-right (uglify-field-name 'module-link-path)
- (string-length "-path"))
- path text)))))
+ (format #t "repo.module-link.~a=~a\n" path text)))))
(define repository-directory? string?)