|
|
|
@ -14,7 +14,7 @@
|
|
|
|
|
(when (not (file-exists? *db*))
|
|
|
|
|
(call-with-output-file *db*
|
|
|
|
|
(lambda (output-port)
|
|
|
|
|
;; Empty body, no content to write to the file
|
|
|
|
|
""
|
|
|
|
|
)))
|
|
|
|
|
(with-db (db)
|
|
|
|
|
(exec (sql db "create table if not exists users(id INTEGER PRIMARY KEY, username TEXT, email TEXT, password TEXT, salt TEXT);"))
|
|
|
|
|