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) | |
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 b263aa49143..3c685f1b564 100644 --- a/gnu/services/cgit.scm +++ b/gnu/services/cgit.scm | |||
| @@ -150,10 +150,7 @@ | |||
| 150 | (if (null? val) "" | 150 | (if (null? val) "" |
| 151 | (match val | 151 | (match val |
| 152 | ((path text) | 152 | ((path text) |
| 153 | (format #t "repo.~a.~a=~a\n" | 153 | (format #t "repo.module-link.~a=~a\n" path text))))) |
| 154 | (string-drop-right (uglify-field-name 'module-link-path) | ||
| 155 | (string-length "-path")) | ||
| 156 | path text))))) | ||
| 157 | 154 | ||
| 158 | (define repository-directory? string?) | 155 | (define repository-directory? string?) |
| 159 | 156 | ||