@@ -35,6 +35,7 @@ (define-module (gnu services configuration)
#:autoload (texinfo serialize) (stexi->texi)
#:use-module (ice-9 curried-definitions)
#:use-module (ice-9 match)
+ #:use-module (ice-9 format)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-34)
#:use-module (srfi srfi-35)
@@ -370,6 +371,9 @@ (define (show-default val)
(cond
((package? val)
(symbol->string (package->symbol val)))
+ ((and ((list-of package?) val) (not (null? val)))
+ (format #f "(~{~a~^ ~})"
+ (map package->symbol val)))
(else (str val))))
`(entry (% (heading