~ruther/guix-local: services/configuration: Fix case where sub-documentation is nonexistent.

8b6e9acc268501223a231d50932192f6bb69d34d — Maxim Cournoyer 1 year, 3 months ago 96ac18d

services/configuration: Fix case where sub-documentation is nonexistent.

Commit 766ad072ad90d4ffc161cb83e29910b7bb3a9d54 introduced a regression
where (configuration->documentation 'libvirt-configuration) would raise:

  (configuration->documentation 'libvirt-configuration)
  ice-9/boot-9.scm:1685:16: In procedure raise-exception:
  In procedure symbol->string: Wrong type argument in position 1 (expecting symbol): #f

* gnu/services/configuration.scm (generate-documentation): Re-introduce
previous handling of sub-documentation.

Change-Id: If2dbb59db5d22da221abfa2ffe7889854528a49c

patch browse .tar.gz

1 files changed, 6 insertions(+), 5 deletions(-)

M gnu/services/configuration.scm

M gnu/services/configuration.scm => gnu/services/configuration.scm +6 -5

@@ 462,11 462,12 @@ DEFAULT."
                            ,@(append-map
                               generate
                               (filter-map
-                                (match-lambda
-                                  ((name config)
-                                   (and (eq? name field-name)
-                                        config)))
-                                sub-documentation)))))
+                               (match-lambda
+                                 ((name config)
+                                  (and (eq? name field-name)
+                                       config)))
+                               (or (assq-ref sub-documentation field-name)
+                                   '()))))))
                fields)))))))
   (stexi->texi `(*fragment* . ,(generate documentation-name))))