diff options
| -rw-r--r-- | scripts/guix-data-service-process-branch-updated-mbox.in | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/scripts/guix-data-service-process-branch-updated-mbox.in b/scripts/guix-data-service-process-branch-updated-mbox.in index 7184e74..0a79f40 100644 --- a/scripts/guix-data-service-process-branch-updated-mbox.in +++ b/scripts/guix-data-service-process-branch-updated-mbox.in @@ -28,11 +28,22 @@ (squee) (email email) (guix-data-service database) + (guix-data-service model git-repository) (guix-data-service branch-updated-emails)) (with-postgresql-connection "process-branch-updated-mbox" (lambda (conn) + (let ((count + (count-git-repositories-with-x-git-repo-header-values conn))) + (when (eq? count 0) + (display + "\nerror: no git_repositories exist with a value for x_git_repo_header +error: to match emails to repositories, the git_repositories entry must have +a x_git_repo_header value\n" + (current-error-port)) + (exit 1))) + (for-each (lambda (file) (simple-format (current-error-port) |