From 9ef6d80ef4a2c61f1307ca1ba072a77c8e294e9d Mon Sep 17 00:00:00 2001 From: Attila Lendvai Date: Fri, 1 Apr 2022 21:19:28 +0200 Subject: services: messaging: Fix two copy-paste mistakes; avoid warnings. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/messaging.scm (file-name-list, file-object-list): Fix name in 'define-maybe' instances. Signed-off-by: Ludovic Courtès --- gnu/services/messaging.scm | 4 ++-- 1 file 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))) -- cgit v1.2.3