me
/
guix
Archived
1
0
Fork 0
Code

services: configuration: Fix typo. 

* gnu/services/configuration.scm (interpose): Fix typo in doc.
(text-config?): Add a newline following definition.
master
Maxim Cournoyer 2022-09-21 16:22:37 -04:00
parent cbe8391d7c
commit 46fee48d5c
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gnu/services/configuration.scm
View File

@ -410,7 +410,7 @@ If NEGATE? is @code{#t}, retrieve all fields except FIELDS."
(define* (interpose ls #:optional (delimiter "\n") (grammar 'infix)) (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." DELIMITER interposed LS. Support 'infix and 'suffix GRAMMAR values."
(when (not (member grammar '(infix suffix))) (when (not (member grammar '(infix suffix)))
(raise (raise
@ -442,6 +442,7 @@ the list result in @code{#t} when applying PRED? on them."
(define (text-config? config) (define (text-config? config)
(list-of file-like?)) (list-of file-like?))
(define (serialize-text-config field-name val) (define (serialize-text-config field-name val)
#~(string-append #~(string-append
#$@(interpose #$@(interpose