diff options
Diffstat (limited to 'guix-data-service/model/package.scm')
| -rw-r--r-- | guix-data-service/model/package.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/guix-data-service/model/package.scm b/guix-data-service/model/package.scm index 7ec2b09..8d62ef3 100644 --- a/guix-data-service/model/package.scm +++ b/guix-data-service/model/package.scm @@ -65,7 +65,9 @@ JOIN (VALUES " (define query (string-append " WITH data AS ( - SELECT packages.name, packages.version, translated_package_synopsis.synopsis, + SELECT packages.name, packages.version, + packages.replacement_package_id IS NOT NULL, + translated_package_synopsis.synopsis, translated_package_synopsis.locale, translated_package_descriptions.description, translated_package_descriptions.locale, package_metadata.home_page, locations.file, locations.line, locations.column_number, @@ -165,7 +167,9 @@ WITH revision_packages AS ( SELECT DISTINCT ON (packages.name, packages.version, packages.replacement_package_id) packages.name, - packages.version, package_synopsis.synopsis, + packages.version, + packages.replacement_package_id IS NOT NULL AS has_replacement, + package_synopsis.synopsis, package_synopsis.locale AS synopsis_locale, package_descriptions.description, package_descriptions.locale AS description_locale, @@ -203,7 +207,7 @@ WITH revision_packages AS ( ELSE 0 END DESC ) -SELECT name, version, synopsis, synopsis_locale, +SELECT name, version, has_replacement, synopsis, synopsis_locale, description, description_locale, home_page, file, line, column_number, licenses FROM search_results @@ -538,7 +542,7 @@ ORDER BY first_datetime DESC, package_version DESC") (define (any-package-synopsis-or-descriptions-translations? packages locale) (any (match-lambda - ((name version synopsis synopsis-locale description description-locale _ _ _ _ _) + ((name version has-replacement? synopsis synopsis-locale description description-locale _ _ _ _ _) (or (string=? synopsis-locale locale) (string=? description-locale locale)))) packages)) |