diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-11-18 22:44:26 +0100 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-11-30 01:08:55 +0100 |
commit | 892f1b7273d57b25940700877a02618fe826cc08 (patch) | |
tree | a1295e5a0cada105bbecee5728a7bfd500d30280 /gnu/services/cups.scm | |
parent | dc9be12eafa793e02c0e85e9b991c53e48892092 (diff) |
services: Accept <inferior-package>s in lieu of <package>s.
* gnu/services/authentication.scm (fprintd-configuration)
(nslcd-configuration): Substitute file-like objects for package ones.
* gnu/services/cgit.scm (cgit-configuration, opaque-cgit-configuration):
Likewise.
* gnu/services/cups.scm (package-list?, cups-configuration): Likewise.
* gnu/services/dns.scm (verify-knot-configuration)
(ddclient-configuration): Likewise.
* gnu/services/docker.scm (docker-configuration): Likewise.
* gnu/services/file-sharing.scm (transmission-daemon-configuration): Likewise.
* gnu/services/getmail.scm (getmail-configuration): Likewise.
* gnu/services/mail.scm (dovecot-configuration)
(opaque-dovecot-configuration): Likewise.
* gnu/services/messaging.scm (prosody-configuration)
(opaque-prosody-configuration): Likewise.
* gnu/services/monitoring.scm (zabbix-server-configuration)
(zabbix-agent-configuration): Likewise.
* gnu/services/networking.scm (opendht-configuration): Likewise.
* gnu/services/pm.scm (tlp-configuration): Likewise.
* gnu/services/telephony.scm (jami-configuration): Likewise.
* gnu/services/virtualization.scm (libvirt-configuration)
(qemu-guest-agent-configuration): Likewise.
* gnu/services/vpn.scm (openvpn-client-configuration): Likewise.
Diffstat (limited to 'gnu/services/cups.scm')
-rw-r--r-- | gnu/services/cups.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/services/cups.scm b/gnu/services/cups.scm index 1b8e19bed8..d965014cd8 100644 --- a/gnu/services/cups.scm +++ b/gnu/services/cups.scm @@ -482,13 +482,13 @@ programs.") (serialize-space-separated-string-list field-name vars))) (define (package-list? val) - (and (list? val) (and-map package? val))) + (and (list? val) (and-map file-like? val))) (define (serialize-package-list field-name val) #f) (define-configuration cups-configuration (cups - (package cups) + (file-like cups) "The CUPS package.") (extensions (package-list (list brlaser cups-filters epson-inkjet-printer-escpr |