diff --git a/guix-data-service/model/package-metadata.scm b/guix-data-service/model/package-metadata.scm index f1ffdbf..91a8445 100644 --- a/guix-data-service/model/package-metadata.scm +++ b/guix-data-service/model/package-metadata.scm @@ -200,7 +200,9 @@ WHERE packages.id IN ( (match-lambda ((synopsis synopsis-locale description description-locale home-page file line column-number 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) #() (json-string->scm license-json))))) diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 9d900d7..2308d01 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -999,6 +999,10 @@ licenses)) `((synopsis . ,(texinfo->variants-alist synopsis synopsis-locale)) (description . ,(texinfo->variants-alist description description-locale)) + (location + . ((file . ,file) + (line . ,line) + (column . ,column-number))) (home-page . ,home-page)))) (derivations . ,(list->vector (map (match-lambda