cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Try to avoid an error probably associated with empty package licenses

Browse source
This commit is contained in:
Christopher Baines 2025-09-26 10:06:36 +01:00
parent 98e493f6e0
commit 119b814877
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/model/license-set.scm
View file

@ -32,5 +32,7 @@
'(license_ids) '(license_ids)
(vector-map (vector-map
(lambda (_ license-ids) (lambda (_ license-ids)
(list (sort license-ids <))) (if (= 0 (vector-length license-ids))
(list (cons "integer[]" license-ids))
(list (sort license-ids <))))
license-id-lists))) license-id-lists)))

3
tests/model-license-set.scm
View file

@ -17,7 +17,8 @@
#f) #f)
("License 2" ("License 2"
#f #f
#f)))) #f))
()))
(with-postgresql-connection (with-postgresql-connection
"test-model-license-set" "test-model-license-set"