summaryrefslogtreecommitdiff
path: root/gnu/services/configuration.scm
diff options
context:
space:
mode:
authorClément Lassieur <clement@lassieur.org>2017-11-24 22:55:28 +0100
committerClément Lassieur <clement@lassieur.org>2017-11-28 03:49:47 +0100
commit19ff1f2687ab5ceeee6335dce2794590d0f4aa27 (patch)
tree968cba781602e083b4bd9130f347758d718c9536 /gnu/services/configuration.scm
parent149b2c439e226c62e549bad7eecd649e1a3b8021 (diff)
downloadpatches-19ff1f2687ab5ceeee6335dce2794590d0f4aa27.tar
patches-19ff1f2687ab5ceeee6335dce2794590d0f4aa27.tar.gz
services: configuration: Show default values of list types.
* doc/guix.texi (Messaging Services): Regenerate it. * gnu/services/configuration.scm (show-default?): Check VAL rather than DEFAULT. * gnu/services/messaging.scm (show-default?): Check VAL rather than DEFAULT. (prosody-configuration)[modules-enabled]: Remove default value from docstring.
Diffstat (limited to 'gnu/services/configuration.scm')
-rw-r--r--gnu/services/configuration.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm
index 0a2219e743..c45340f02f 100644
--- a/gnu/services/configuration.scm
+++ b/gnu/services/configuration.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
+;;; Copyright © 2017 Clément Lassieur <clement@lassieur.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -165,7 +166,7 @@
(configuration-field-default-value-thunk f)
(lambda _ '%invalid))))
(define (show-default? val)
- (or (string? default) (number? default) (boolean? default)
+ (or (string? val) (number? val) (boolean? val)
(and (symbol? val) (not (eq? val '%invalid)))
(and (list? val) (and-map show-default? val))))
`(deftypevr (% (category