diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-03-20 19:44:40 +0100 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-04-11 21:23:59 +0200 |
| commit | 36027f05e901c4d70374ca8d7e8ab87e58fe5300 (patch) | |
| tree | a18520c6e4e63fa581254256d455790b77953c17 /gnu/services/cgit.scm | |
| parent | dde99782e017747f5b442415864d68e7d3a4d031 (diff) | |
| download | guix-patches-36027f05e901c4d70374ca8d7e8ab87e58fe5300.tar guix-patches-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/cgit.scm')
| -rw-r--r-- | gnu/services/cgit.scm | 5 |
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?) |