[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: services: cgit: Simplify 'uglify-field-name'.
From: |
Clément Lassieur |
Subject: |
01/05: services: cgit: Simplify 'uglify-field-name'. |
Date: |
Wed, 11 Apr 2018 15:24:22 -0400 (EDT) |
snape pushed a commit to branch master
in repository guix.
commit dde99782e017747f5b442415864d68e7d3a4d031
Author: Clément Lassieur <address@hidden>
Date: Tue Mar 20 19:41:24 2018 +0100
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(-)
diff --git a/gnu/services/cgit.scm b/gnu/services/cgit.scm
index a868d75..b263aa4 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 <address@hidden>
+;;; Copyright © 2018 Clément Lassieur <address@hidden>
;;;
;;; 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))