diff options
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"))))) |