Extract out some database functionality to another module

2019-04-14 10:04:19 +01:00 · 2019-04-14 10:04:19 +01:00 · 2e45bb0696
commit 2e45bb0696
parent b352b5040a
6 changed files with 54 additions and 27 deletions
--- a/scripts/guix-data-service-process-branch-updated-email.in
+++ b/scripts/guix-data-service-process-branch-updated-email.in
@ -25,10 +25,12 @@
             (ice-9 textual-ports)
             (squee)
             (email email)
+             (guix-data-service database)
             (guix-data-service branch-updated-emails))

-(let ((conn (connect-to-postgres-paramstring "dbname=guix_data_service")))
-  (enqueue-job-for-email
-   conn
-   (parse-email
-    (get-string-all (current-input-port)))))
+(with-postgresql-connection
+ (lambda (conn)
+   (enqueue-job-for-email
+    conn
+    (parse-email
+     (get-string-all (current-input-port))))))