summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorAttila Lendvai <attila@lendvai.name>2022-04-01 21:19:28 +0200
committerLudovic Courtès <ludo@gnu.org>2022-04-05 20:41:41 +0200
commit9ef6d80ef4a2c61f1307ca1ba072a77c8e294e9d (patch)
tree5920b1b3bd8aa38a2c8f1d35ef4a57b8968bf0d6 /gnu/services
parent84e0cbbc9cbf7e73344969a90ada5b82bd2fe2fc (diff)
services: messaging: Fix two copy-paste mistakes; avoid warnings.
* gnu/services/messaging.scm (file-name-list, file-object-list): Fix name in 'define-maybe' instances. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/messaging.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index 6ed55453db..4bceb1d37a 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -180,7 +180,7 @@
(and (list? val) (and-map file-name? val)))
(define (serialize-file-name-list field-name val)
(serialize-string-list field-name val))
-(define-maybe file-name)
+(define-maybe file-name-list)
(define (file-object? val)
(or (file-like? val) (file-name? val)))
@@ -192,7 +192,7 @@
(and (list? val) (and-map file-object? val)))
(define (serialize-file-object-list field-name val)
(serialize-string-list field-name val))
-(define-maybe file-object)
+(define-maybe file-object-list)
(define (raw-content? val)
(not (eq? val 'disabled)))