diff --git a/guix-data-service/model/license-set.scm b/guix-data-service/model/license-set.scm index fe4272b..8436875 100644 --- a/guix-data-service/model/license-set.scm +++ b/guix-data-service/model/license-set.scm @@ -32,5 +32,7 @@ '(license_ids) (vector-map (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))) diff --git a/tests/model-license-set.scm b/tests/model-license-set.scm index 38a86de..24cb4e1 100644 --- a/tests/model-license-set.scm +++ b/tests/model-license-set.scm @@ -17,7 +17,8 @@ #f) ("License 2" #f - #f)))) + #f)) + ())) (with-postgresql-connection "test-model-license-set"