Working docker version.

src/server/db.scm

@@ -1,6 +1,7 @@
 (use sql-de-lite crypt)
 
-(define *db* "/home/tjhintz/db")
+;; (define *db* "/home/tjhintz/db")
+(define *db* "/farm/dist/db")
 
 (define-syntax with-db
   (syntax-rules ()
@@ -11,11 +12,11 @@
 
 (define (create-tables)
   (with-db (db)
-    (exec (sql db "create table users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
-    (exec (sql db "create table sessions(bindings TEXT, session_id TEXT PRIMARY KEY);"))
-    (exec (sql db "create table games(id INTEGER PRIMARY KEY, status TEXT, object TEXT, updated INTEGER);"))
-    (exec (sql db "create table players(id INTEGER PRIMARY KEY, object TEXT);"))
-    (exec (sql db "create table user_games(user_id INTEGER, game_id INTEGER);"))))
+    (exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
+    (exec (sql db "create table if not exists sessions(bindings TEXT, session_id TEXT PRIMARY KEY);"))
+    (exec (sql db "create table if not exists games(id INTEGER PRIMARY KEY, status TEXT, object TEXT, updated INTEGER);"))
+    (exec (sql db "create table if not exists players(id INTEGER PRIMARY KEY, object TEXT);"))
+    (exec (sql db "create table if not exists user_games(user_id INTEGER, game_id INTEGER);"))))
 
 (define (db-session-set! sid bindings)
   (with-db (db)

src/server/farm.scm

@@ -448,7 +448,8 @@
 
 ;; (access-log (current-output-port))
 (access-log "access.log")
-(error-log "error.log")
+;; (error-log "error.log")
+(error-log (current-output-port))
 
 (handle-not-found
  (let ((old-handler (handle-not-found)))
@@ -2742,9 +2743,10 @@
    (run-awful)
    (repl))
   (compiling ;; production
+   (create-tables)
    (run-awful)
    (repl)
-   ;; (thread-join! *server-thread*)
+   (thread-join! *server-thread*)
    ))
 
 ;; TODO