amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
Commit 766ad072ad 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
This commit is contained in:
Maxim Cournoyer 2025-03-18 10:51:17 +09:00
parent 96ac18dfeb
commit 8b6e9acc26
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
gnu/services/configuration.scm
View file

@ -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))))