diff options
| author | Clément Lassieur <clement@lassieur.org> | 2018-03-20 19:41:24 +0100 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-04-11 21:23:58 +0200 |
| commit | dde99782e017747f5b442415864d68e7d3a4d031 (patch) | |
| tree | f06f41b25e23a9ce7cb4402893309e6b2c5691ab | |
| parent | 99e892a5622f9766d94e1e25f2882eaee38e0718 (diff) | |
| download | patches-dde99782e017747f5b442415864d68e7d3a4d031.tar patches-dde99782e017747f5b442415864d68e7d3a4d031.tar.gz | |
services: cgit: Simplify 'uglify-field-name'.
* gnu/services/cgit.scm (uglify-field-name): Remove STRING-JOIN and
STRING-SPLIT.
| -rw-r--r-- | gnu/services/cgit.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm index a868d758a4..b263aa4914 100644 --- a/gnu/services/cgit.scm +++ b/gnu/services/cgit.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> +;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -72,8 +73,7 @@ ;;; (define (uglify-field-name field-name) - (let ((str (symbol->string field-name))) - (string-join (string-split (string-delete #\? str) #\-) "-"))) + (string-delete #\? (symbol->string field-name))) (define (serialize-field field-name val) (format #t "~a=~a\n" (uglify-field-name field-name) val)) |