me
/
guix
Archived
1
0
Fork 0
Code

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>
master
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 @@
(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)))