diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-05-05 13:35:48 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-05-05 14:36:52 +0100 |
| commit | ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707 (patch) | |
| tree | ed0e8c4b4a87ebad122fb831e6ea1d01ac6f037b /guix-data-service/branch-updated-emails.scm | |
| parent | 051962b54d9a647adc8c09fb8ef33db2ac9b659a (diff) | |
| download | data-service-ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707.tar data-service-ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707.tar.gz | |
Switch to storing Git repositories in a table
Rather than just storing the URL in the guix_revisions and
load_new_guix_revision_jobs tables. This will help when storing more
information like tags and branches in the future.
Diffstat (limited to 'guix-data-service/branch-updated-emails.scm')
| -rw-r--r-- | guix-data-service/branch-updated-emails.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-data-service/branch-updated-emails.scm b/guix-data-service/branch-updated-emails.scm index 284fe49..16dced4 100644 --- a/guix-data-service/branch-updated-emails.scm +++ b/guix-data-service/branch-updated-emails.scm @@ -17,6 +17,7 @@ (define-module (guix-data-service branch-updated-emails) #:use-module (email email) + #:use-module (guix-data-service model git-repository) #:use-module (guix-data-service jobs load-new-guix-revision) #:export (enqueue-job-for-email)) @@ -36,7 +37,9 @@ (string? x-git-newrev)) (enqueue-load-new-guix-revision-job conn - (assoc-ref %repository-url-for-repo - x-git-repo) + (git-repository-url->git-repository-id + conn + (assoc-ref %repository-url-for-repo + x-git-repo)) x-git-newrev (string-append x-git-repo " " x-git-refname " updated"))))) |