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 ++++--
 scripts/README.md                      | 4 ++--
 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)
-- 
cgit v1.2.3