snape pushed a commit to branch master
in repository guix.

commit 36027f05e901c4d70374ca8d7e8ab87e58fe5300
Author: Clément Lassieur <clem...@lassieur.org>
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?)
 

Reply via email to