aboutsummaryrefslogtreecommitdiff
path: root/scripts/guix-data-service-process-branch-updated-email.in
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/guix-data-service-process-branch-updated-email.in')
-rw-r--r--scripts/guix-data-service-process-branch-updated-email.in24
1 files changed, 20 insertions, 4 deletions
diff --git a/scripts/guix-data-service-process-branch-updated-email.in b/scripts/guix-data-service-process-branch-updated-email.in
index 6170a32..429684a 100644
--- a/scripts/guix-data-service-process-branch-updated-email.in
+++ b/scripts/guix-data-service-process-branch-updated-email.in
@@ -31,7 +31,23 @@
(with-postgresql-connection
"process-branch-updated-email"
(lambda (conn)
- (enqueue-job-for-email
- conn
- (parse-email
- (get-string-all (current-input-port))))))
+ (let* ((email-string
+ (get-string-all (current-input-port)))
+ (email
+ (catch
+ #t
+ (lambda ()
+ (parse-email email-string))
+ (lambda (key . args)
+ (display "\nerror: while processing email\n"
+ (current-error-port))
+ (simple-format (current-error-port)
+ "~A: ~A\n\n"
+ key
+ args)
+ (display email-string (current-error-port))
+ (display "\n\n" (current-error-port))
+ #f))))
+ (when email
+ (enqueue-job-for-email conn email)))))
+