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 | |
| parent | 8fb091769b6b01d476b45943bac54a26a8923573 (diff) | |
| download | gn-guile-caaf3428dea7e58c23640b5b6f5950fe3796bc30.tar.gz | |
Mysql: check database is running. And some comments
| -rw-r--r-- | gn/db/mysql.scm | 6 | ||||
| -rw-r--r-- | scripts/README.md | 4 | ||||
| -rwxr-xr-x | scripts/precompute/precompute-hits.scm | 4 |
3 files changed, 10 insertions, 4 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))) diff --git a/scripts/README.md b/scripts/README.md index 10ec38c..44ca39f 100644 --- a/scripts/README.md +++ b/scripts/README.md @@ -1,4 +1,4 @@ # Tooling and scripts -In this directory we store scripts that run independently of the web -service. +In this directory we store scripts that run independently of the web service. +See the headers for instructions. diff --git a/scripts/precompute/precompute-hits.scm b/scripts/precompute/precompute-hits.scm index 8762a6a..5f45967 100755 --- a/scripts/precompute/precompute-hits.scm +++ b/scripts/precompute/precompute-hits.scm @@ -2,6 +2,10 @@ .guix-shell -- guile -L . -s ./scripts/precompute/precompute-hits.scm +and with some extra paths + +.guix-shell ruby --expose=/home/wrk/iwrk/opensource/code/genetics/gemma-wrapper/=/gemma-wrapper --expose=/home/wrk/iwrk/opensource/code/genetics/gemma/=/gemma -- guile -L . -s ./scripts/precompute/precompute-hits.scm + !# (use-modules (dbi dbi) |