Fixing lambda.

master
Thomas Hintz 10 months ago
parent c764b63d10
commit 945011c052

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

Loading…
Cancel
Save