summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorClément Lassieur <clement@lassieur.org>2018-03-20 19:41:24 +0100
committerClément Lassieur <clement@lassieur.org>2018-04-11 21:23:58 +0200
commitdde99782e017747f5b442415864d68e7d3a4d031 (patch)
treef06f41b25e23a9ce7cb4402893309e6b2c5691ab /gnu/services
parent99e892a5622f9766d94e1e25f2882eaee38e0718 (diff)
downloadpatches-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.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/cgit.scm4
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))