aboutsummaryrefslogtreecommitdiff
path: root/gn
diff options
context:
space:
mode:
Diffstat (limited to 'gn')
-rw-r--r--gn/db/mysql.scm6
1 files changed, 4 insertions, 2 deletions
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)))