ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: messaging: Fix two copy-paste mistakes; avoid warnings.

Browse source 
* 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>
This commit is contained in:
Attila Lendvai 2022-04-01 21:19:28 +02:00 committed by Ludovic Courtès
parent 84e0cbbc9c
commit 9ef6d80ef4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gnu/services/messaging.scm
View file

@ -180,7 +180,7 @@ (define (file-name-list? val)
(and (list? val) (and-map file-name? val))) (and (list? val) (and-map file-name? val)))
(define (serialize-file-name-list field-name val) (define (serialize-file-name-list field-name val)
(serialize-string-list field-name val)) (serialize-string-list field-name val))
(define-maybe file-name) (define-maybe file-name-list)
(define (file-object? val) (define (file-object? val)
(or (file-like? val) (file-name? val))) (or (file-like? val) (file-name? val)))
@ -192,7 +192,7 @@ (define (file-object-list? val)
(and (list? val) (and-map file-object? val))) (and (list? val) (and-map file-object? val)))
(define (serialize-file-object-list field-name val) (define (serialize-file-object-list field-name val)
(serialize-string-list field-name val)) (serialize-string-list field-name val))
(define-maybe file-object) (define-maybe file-object-list)
(define (raw-content? val) (define (raw-content? val)
(not (eq? val 'disabled))) (not (eq? val 'disabled)))