From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56056) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1f4rJu-0003eX-1N for guix-patches@gnu.org; Sat, 07 Apr 2018 13:08:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1f4rJp-0002dX-W8 for guix-patches@gnu.org; Sat, 07 Apr 2018 13:08:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:33579) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1f4rJp-0002dT-TG for guix-patches@gnu.org; Sat, 07 Apr 2018 13:08:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1f4rJp-00031Q-Oc for guix-patches@gnu.org; Sat, 07 Apr 2018 13:08:01 -0400 Subject: [bug#31089] [PATCH 1/5] services: cgit: Simplify 'uglify-field-name'. References: <874lknc5im.fsf@lassieur.org> In-Reply-To: <874lknc5im.fsf@lassieur.org> Resent-Message-ID: From: =?UTF-8?Q?Cl=C3=A9ment?= Lassieur Date: Sat, 7 Apr 2018 19:07:05 +0200 Message-Id: <20180407170709.22160-1-clement@lassieur.org> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 31089@debbugs.gnu.org * 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(-) diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm index a868d758a..b263aa491 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 (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)) -- 2.17.0