aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/messaging.scm
diff options
context:
space:
mode:
authorAttila Lendvai <attila@lendvai.name>2022-08-24 14:40:41 +0200
committerMaxim Cournoyer <maxim.cournoyer@gmail.com>2022-08-25 00:10:32 -0400
commitee08277a70d29b6d707524a4e17620f50b87adf4 (patch)
tree3f10d2da5070e6687e58c0f4af68c2d1b73843c2 /gnu/services/messaging.scm
parentcc32cd41f74c642583837b43444646d52b3fd5da (diff)
downloadguix-ee08277a70d29b6d707524a4e17620f50b87adf4.tar
guix-ee08277a70d29b6d707524a4e17620f50b87adf4.tar.gz
services: Use the new maybe/unset API.
* gnu/home/services/ssh.scm (serialize-address-family): Use the public API of the maybe infrastructure. * gnu/services/file-sharing.scm (serialize-maybe-string): Use maybe-value. (serialize-maybe-file-object): Use maybe-value-set?. * gnu/services/getmail.scm (getmail-retriever-configuration): Don't use internals in unset field declarations. (getmail-destination-configuration): Ditto. * gnu/services/messaging.scm (raw-content?): Use maybe-value-set?. (prosody-configuration): Use %unset-value. * gnu/services/telephony.scm (jami-shepherd-services): Use maybe-value-set?. (archive-name->username): Use maybe-value-set?. * tests/services/configuration.scm ("maybe type, no default"): Use %unset-value. Modified-by: Maxim Cournoyer <maxim.cournoyer@gmail.com> Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
Diffstat (limited to 'gnu/services/messaging.scm')
-rw-r--r--gnu/services/messaging.scm15
1 files changed, 10 insertions, 5 deletions
diff --git a/gnu/services/messaging.scm b/gnu/services/messaging.scm
index 00a1c80a14..59cb486778 100644
--- a/gnu/services/messaging.scm
+++ b/gnu/services/messaging.scm
@@ -90,6 +90,11 @@
((new-def ...)
(map (lambda (def target)
(if (eq? 'common (syntax->datum target))
+ ;; TODO Use the %unset-value variable, or
+ ;; even better just simplify this so that it
+ ;; doesn't interfere with
+ ;; define-configuration and define-maybe
+ ;; internals.
#''unset def))
#'(def ...) #'(target ...)))
((new-doc ...)
@@ -200,7 +205,7 @@
(define-maybe file-object-list)
(define (raw-content? val)
- (not (eq? val 'unset)))
+ (maybe-value-set? val))
(define (serialize-raw-content field-name val)
val)
(define-maybe raw-content)
@@ -474,12 +479,12 @@ by the Prosody service. See @url{https://prosody.im/doc/logging}."
global)
(http-max-content-size
- (maybe-non-negative-integer 'unset)
+ (maybe-non-negative-integer %unset-value)
"Maximum allowed size of the HTTP body (in bytes)."
common)
(http-external-url
- (maybe-string 'unset)
+ (maybe-string %unset-value)
"Some modules expose their own URL in various ways. This URL is built
from the protocol, host and port used. If Prosody sits behind a proxy, the
public URL will be @code{http-external-url} instead. See
@@ -556,7 +561,7 @@ support. To add an external component, you simply fill the hostname field. See
int-component)
(mod-muc
- (maybe-mod-muc-configuration 'unset)
+ (maybe-mod-muc-configuration %unset-value)
"Multi-user chat (MUC) is Prosody's module for allowing you to create
hosted chatrooms/conferences for XMPP users.
@@ -573,7 +578,7 @@ See also @url{https://prosody.im/doc/modules/mod_muc}."
ext-component)
(raw-content
- (maybe-raw-content 'unset)
+ (maybe-raw-content %unset-value)
"Raw content that will be added to the configuration file."
common)))