From caaf3428dea7e58c23640b5b6f5950fe3796bc30 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sat, 2 Dec 2023 17:01:51 -0600
Subject: Mysql: check database is running. And some comments

---
 gn/db/mysql.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'gn')

diff --git a/gn/db/mysql.scm b/gn/db/mysql.scm
index 760e578..66f28db 100644
--- a/gn/db/mysql.scm
+++ b/gn/db/mysql.scm
@@ -31,8 +31,10 @@
   (begin
     (display "===> OPENING DB")
     (newline)
-    (dbi-open "mysql" "webqtlout:webqtlout:db_webqtl:tcp:127.0.0.1:3306")
-    ))
+    (let [(db (dbi-open "mysql" "webqtlout:webqtlout:db_webqtl:tcp:127.0.0.1:3306"))]
+      (ensure db)
+      db
+    )))
 
 (define (call-with-db thunk)
   (thunk (db-open)))
-- 
cgit v1.2.3