Use virtual connection for MariaDB to reconnect automatically

chfi · Jun 10, 2020 · 23ffdbd · 23ffdbd
1 parent f8134b2
commit 23ffdbd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/server/db.rkt b/server/db.rkt
@@ -8,8 +8,6 @@
          redis-conn
          mysql-conn)
 
-
-;; This should be a racket parameter
 (define (connect-redis)
   (make-redis))
 
@@ -26,4 +24,6 @@
                  #:password sql-pass
                  #:database "db_webqtl_s"))
 
-(define mysql-conn (make-parameter (connect-sql)))
+(define mysql-conn
+  (make-parameter
+   (virtual-connection connect-sql)))