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

Include the location in package JSON responses

Browse source
This commit is contained in:
Christopher Baines 2025-06-24 15:16:37 +02:00
parent 9b79543a73
commit a017cddebc
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/model/package-metadata.scm
View file

@ -200,7 +200,9 @@ WHERE packages.id IN (
(match-lambda (match-lambda
((synopsis synopsis-locale description description-locale home-page file line column-number ((synopsis synopsis-locale description description-locale home-page file line column-number
license-json) license-json)
(list synopsis synopsis-locale description description-locale home-page file line column-number (list synopsis synopsis-locale description description-locale home-page file
(and=> line string->number)
(and=> column-number string->number)
(if (string-null? license-json) (if (string-null? license-json)
#() #()
(json-string->scm license-json))))) (json-string->scm license-json)))))

4
guix-data-service/web/revision/controller.scm
View file

@ -999,6 +999,10 @@
licenses)) licenses))
`((synopsis . ,(texinfo->variants-alist synopsis synopsis-locale)) `((synopsis . ,(texinfo->variants-alist synopsis synopsis-locale))
(description . ,(texinfo->variants-alist description description-locale)) (description . ,(texinfo->variants-alist description description-locale))
(location
. ((file . ,file)
(line . ,line)
(column . ,column-number)))
(home-page . ,home-page)))) (home-page . ,home-page))))
(derivations . ,(list->vector (derivations . ,(list->vector
(map (match-lambda (map (match-lambda