diff options
| -rw-r--r-- | guix-data-service/model/package-metadata.scm | 51 |
1 files changed, 29 insertions, 22 deletions
diff --git a/guix-data-service/model/package-metadata.scm b/guix-data-service/model/package-metadata.scm index 4372d8f..aaaee68 100644 --- a/guix-data-service/model/package-metadata.scm +++ b/guix-data-service/model/package-metadata.scm @@ -400,28 +400,35 @@ WHERE packages.id IN ( package_description_set_id package_synopsis_set_id) - (map (match-lambda* - (((home-page - location - package-description-data - package-synopsis-data) - license-set-id) - - (list (if (string? home-page) - home-page - NULL) - (location->location-id - conn - location) - license-set-id - (package-description-data->package-description-set-id - conn - package-description-data) - (package-synopsis-data->package-synopsis-set-id - conn - package-synopsis-data)))) - package-metadata - license-set-ids) + (zip + (map (match-lambda + ((home-page rest ...) + (if (string? home-page) + home-page + NULL))) + package-metadata) + (with-time-logging "preparing location ids" + (map (match-lambda + ((_ location rest ...) + (location->location-id + conn + location))) + package-metadata)) + license-set-ids + (with-time-logging "preparing package description set ids" + (map (match-lambda + ((_ _ package-description-data _) + (package-description-data->package-description-set-id + conn + package-description-data))) + package-metadata)) + (with-time-logging "preparing package synopsis set ids" + (map (match-lambda + ((_ _ _ package-synopsis-data) + (package-synopsis-data->package-synopsis-set-id + conn + package-synopsis-data))) + package-metadata))) ;; There can be duplicated entires in package-metadata, for example where ;; you have one package definition which interits from another, and just ;; overrides the version and the source, the package_metadata entries for |