diff options
| author | Danjela Lura <danielaluraa@gmail.com> | 2020-08-07 17:16:44 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-08-12 08:53:49 +0100 |
| commit | 5b3e5d9441948fe621c495a36556ec1011f65b41 (patch) | |
| tree | de8b4d7818ec862c5e52ad5b591bd1ea32792000 /guix-data-service/model/utils.scm | |
| parent | ee613cdb305cc1e443135d311aead6c799902b8a (diff) | |
| download | data-service-5b3e5d9441948fe621c495a36556ec1011f65b41.tar data-service-5b3e5d9441948fe621c495a36556ec1011f65b41.tar.gz | |
Update the package_metadata_tsvectors with new entries
Signed-off-by: Christopher Baines <mail@cbaines.net>
Diffstat (limited to 'guix-data-service/model/utils.scm')
| -rw-r--r-- | guix-data-service/model/utils.scm | 52 |
1 files changed, 27 insertions, 25 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index 79aa7da..e6c4a2b 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -365,28 +365,30 @@ WHERE table_name = $1" (exec-query conn (insert-sql missing-entries))))) (new-entries-lookup-vhash (two-lists->vhash missing-entries - new-entries))) - - (if sets-of-data? - (map (lambda (field-value-lists) - ;; Normalise the result at this point, ensuring that the id's - ;; in the set are sorted - (sort - (map (lambda (field-values) - (cdr - (or (vhash-assoc (normalise-values field-values) - existing-entries) - (vhash-assoc field-values - new-entries-lookup-vhash) - (error "missing entry" field-values)))) - field-value-lists) - <)) - data) - (map (lambda (field-values) - (cdr - (or (vhash-assoc (normalise-values field-values) - existing-entries) - (vhash-assoc field-values - new-entries-lookup-vhash) - (error "missing entry" field-values)))) - data)))) + new-entries)) + (all-ids + (if sets-of-data? + (map (lambda (field-value-lists) + ;; Normalise the result at this point, ensuring that the id's + ;; in the set are sorted + (sort + (map (lambda (field-values) + (cdr + (or (vhash-assoc (normalise-values field-values) + existing-entries) + (vhash-assoc field-values + new-entries-lookup-vhash) + (error "missing entry" field-values)))) + field-value-lists) + <)) + data) + (map (lambda (field-values) + (cdr + (or (vhash-assoc (normalise-values field-values) + existing-entries) + (vhash-assoc field-values + new-entries-lookup-vhash) + (error "missing entry" field-values)))) + data)))) + (values all-ids + new-entries))) |