diff options
author | Christopher Baines <mail@cbaines.net> | 2019-08-05 20:59:48 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-08-05 20:59:48 +0100 |
commit | 9e80bda4f91e06e3e1d60cf48d33534b7cabb626 (patch) | |
tree | eca0240b347dfc7566553bfb312fff11feecba6e /guix-data-service/jobs/load-new-guix-revision.scm | |
parent | 712dd377a1e972dd6a04d461b3d59ab8a279ae2f (diff) | |
download | data-service-9e80bda4f91e06e3e1d60cf48d33534b7cabb626.tar data-service-9e80bda4f91e06e3e1d60cf48d33534b7cabb626.tar.gz |
Avoid erroring when processing emails again
These changes allow processing emails again, and just creating job and branch
entries where data is missing.
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 2dd3907..393ef06 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -630,12 +630,15 @@ WHERE job_id = $1" " INSERT INTO load_new_guix_revision_jobs (git_repository_id, commit, source) VALUES ($1, $2, $3) +ON CONFLICT DO NOTHING RETURNING id;") - (first - (exec-query conn - query - (list git-repository-id commit source)))) + (match (exec-query conn + query + (list git-repository-id commit source)) + ((result) + result) + (() #f))) (define (select-job-for-commit conn commit) (let ((result |