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

Fix a bug where the list of 0 licenses wasn't handled correctly

Browse source 
This happened for a package with #f as the licenses. That's incorrect, but try
to handle it without erroring.
This commit is contained in:
Christopher Baines 2019-07-12 19:50:48 +01:00
parent 28baed2667
commit 8f956aa6c2
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -37,10 +37,13 @@ FROM license_sets")
(exec-query->vhash conn (exec-query->vhash conn
select-license-sets select-license-sets
(lambda (results) (lambda (results)
(string-split (string-drop-right (if (string=? (second results) "{}")
'()
(string-split
(string-drop-right
(string-drop (second results) 1) (string-drop (second results) 1)
1) 1)
#\,)) #\,)))
first)) ;; id first)) ;; id
(missing-license-sets (missing-license-sets
(delete-duplicates (delete-duplicates