Extract out some database functionality to another module

This commit is contained in:
Christopher Baines 2019-04-14 10:04:19 +01:00
parent b352b5040a
commit 2e45bb0696
6 changed files with 54 additions and 27 deletions

View file

@ -27,6 +27,7 @@
(squee)
(guix-data-service jobs))
(let ((conn (connect-to-postgres-paramstring "dbname=guix_data_service")))
(simple-format #t "Ready to process jobs...\n")
(process-jobs conn))
(with-postgresql-connection
(lambda (conn)
(simple-format #t "Ready to process jobs...\n")
(process-jobs conn)))