aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorClément Lassieur <clement@lassieur.org>2018-03-20 19:44:40 +0100
committerClément Lassieur <clement@lassieur.org>2018-04-11 21:23:59 +0200
commit36027f05e901c4d70374ca8d7e8ab87e58fe5300 (patch)
treea18520c6e4e63fa581254256d455790b77953c17 /gnu/services
parentdde99782e017747f5b442415864d68e7d3a4d031 (diff)
downloadguix-36027f05e901c4d70374ca8d7e8ab87e58fe5300.tar
guix-36027f05e901c4d70374ca8d7e8ab87e58fe5300.tar.gz
services: cgit: Simplify 'serialize-module-link-path'.
* gnu/services/cgit.scm (serialize-module-link-path): Remove STRING-DROP-RIGHT and UGLIFY-FIELD-NAME.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/cgit.scm5
1 files changed, 1 insertions, 4 deletions
diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm
index b263aa4914..3c685f1b56 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?)