diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-09-21 16:22:37 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2022-09-23 00:50:12 -0400 |
| commit | 46fee48d5c89bcffdf759645484e063ada2d97c0 (patch) | |
| tree | 0f48a1bf6719d027396e3686866c52246518a2a0 | |
| parent | cbe8391d7c570a12416acfbfbbb818404d8b9203 (diff) | |
| download | guix-46fee48d5c89bcffdf759645484e063ada2d97c0.tar.gz | |
services: configuration: Fix typo.
* gnu/services/configuration.scm (interpose): Fix typo in doc. (text-config?): Add a newline following definition.
| -rw-r--r-- | gnu/services/configuration.scm | 3 |
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 |