aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-09-21 16:22:37 -0400
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-09-23 00:50:12 -0400
commit46fee48d5c89bcffdf759645484e063ada2d97c0 (patch)
tree0f48a1bf6719d027396e3686866c52246518a2a0 /gnu/services
parentcbe8391d7c570a12416acfbfbbb818404d8b9203 (diff)
downloadguix-46fee48d5c89bcffdf759645484e063ada2d97c0.tar
guix-46fee48d5c89bcffdf759645484e063ada2d97c0.tar.gz
services: configuration: Fix typo.
* gnu/services/configuration.scm (interpose): Fix typo in doc. (text-config?): Add a newline following definition.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/configuration.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 83da63c1b3..636c49ccba 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -410,7 +410,7 @@ If NEGATE? is @code{#t}, retrieve all fields except FIELDS."
(define* (interpose ls #:optional (delimiter "\n") (grammar 'infix))
- "Same as @code{string-join}, but without join and string, returns an
+ "Same as @code{string-join}, but without join and string, returns a
DELIMITER interposed LS. Support 'infix and 'suffix GRAMMAR values."
(when (not (member grammar '(infix suffix)))
(raise
@@ -442,6 +442,7 @@ the list result in @code{#t} when applying PRED? on them."
(define (text-config? config)
(list-of file-like?))
+
(define (serialize-text-config field-name val)
#~(string-append
#$@(interpose