diff options
| author | Attila Lendvai <attila@lendvai.name> | 2022-04-01 21:19:28 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-04-05 20:41:41 +0200 |
| commit | 9ef6d80ef4a2c61f1307ca1ba072a77c8e294e9d (patch) | |
| tree | 5920b1b3bd8aa38a2c8f1d35ef4a57b8968bf0d6 | |
| parent | 84e0cbbc9cbf7e73344969a90ada5b82bd2fe2fc (diff) | |
| download | guix-9ef6d80ef4a2c61f1307ca1ba072a77c8e294e9d.tar.gz | |
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>
| -rw-r--r-- | gnu/services/messaging.scm | 4 |
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))) |