diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:11:52 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:11:52 +0100 |
| commit | 98e2831fe6aaab769d6392a350faaa374b5cfd15 (patch) | |
| tree | e20250372d99cc45d7cad4376510c30de3f8fe51 | |
| parent | 80043e00596da1f872149465d642cb2bf8bceddb (diff) | |
| download | data-service-98e2831fe6aaab769d6392a350faaa374b5cfd15.tar data-service-98e2831fe6aaab769d6392a350faaa374b5cfd15.tar.gz | |
Populate the narinfo_fetch_records table
| -rw-r--r-- | guix-data-service/builds.scm | 1 | ||||
| -rw-r--r-- | guix-data-service/model/nar.scm | 13 |
2 files changed, 12 insertions, 2 deletions
diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm index 370eee2..53d751f 100644 --- a/guix-data-service/builds.scm +++ b/guix-data-service/builds.scm @@ -232,4 +232,5 @@ LIMIT 15000")) (lambda (conn) (record-narinfo-details-and-return-ids conn + build-server-id narinfos)))))) diff --git a/guix-data-service/model/nar.scm b/guix-data-service/model/nar.scm index 92c4d11..d3a524e 100644 --- a/guix-data-service/model/nar.scm +++ b/guix-data-service/model/nar.scm @@ -18,7 +18,7 @@ (define narinfo-contents (@@ (guix scripts substitute) narinfo-contents)) -(define (record-narinfo-details-and-return-ids conn narinfos) +(define (record-narinfo-details-and-return-ids conn build-server-id narinfos) (define data (map (lambda (narinfo) (match (string-split @@ -106,7 +106,16 @@ VALUES " nar-id narinfo-signature-data-id) " -ON CONFLICT DO NOTHING")))) +ON CONFLICT DO NOTHING")) + + (exec-query + conn + (string-append + " +INSERT INTO narinfo_fetch_records (narinfo_signature_data_id, build_server_id) +VALUES ($1, $2)") + (list (number->string narinfo-signature-data-id) + (number->string build-server-id))))) nar-ids narinfos) |