diff options
| author | Pjotr Prins | 2023-12-02 17:01:51 -0600 |
|---|---|---|
| committer | Pjotr Prins | 2023-12-02 17:01:51 -0600 |
| commit | caaf3428dea7e58c23640b5b6f5950fe3796bc30 (patch) | |
| tree | 94f7849e5af7bf4d229c20d7fd421c2ac6718613 /gn/db/mysql.scm | |
| parent | 8fb091769b6b01d476b45943bac54a26a8923573 (diff) | |
| download | gn-guile-caaf3428dea7e58c23640b5b6f5950fe3796bc30.tar.gz | |
Mysql: check database is running. And some comments
Diffstat (limited to 'gn/db/mysql.scm')
| -rw-r--r-- | gn/db/mysql.scm | 6 |
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))) |