From dde99782e017747f5b442415864d68e7d3a4d031 Mon Sep 17 00:00:00 2001 From: Clément Lassieur Date: Tue, 20 Mar 2018 19:41:24 +0100 Subject: services: cgit: Simplify 'uglify-field-name'. * gnu/services/cgit.scm (uglify-field-name): Remove STRING-JOIN and STRING-SPLIT. --- gnu/services/cgit.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/services/cgit.scm') 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 +;;; Copyright © 2018 Clément Lassieur ;;; ;;; This file is part of GNU Guix. ;;; @@ -72,8 +73,7 @@ (define %cgit-configuration-nginx ;;; (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)) -- cgit v1.2.3