summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--main.scm29
1 files changed, 16 insertions, 13 deletions
diff --git a/main.scm b/main.scm
index f163267..da7653a 100644
--- a/main.scm
+++ b/main.scm
@@ -15,19 +15,22 @@
(define db (open-database (or (get-environment-variable "DB_FILE") "/tmp/54itter.db")))
-(when (zero? (first-result db "SELECT count(*) FROM sqlite_master WHERE type='table' AND name='posts'"))
- (execute db "CREATE TABLE posts (
- id TEXT PRIMARY KEY,
- user_id TEXT,
- content TEXT,
- created_at DATETIME default current_timestamp,
- parent_id TEXT
- )")
- (execute db "CREATE TABLE flush_votes (
- user_id TEXT PRIMARY KEY,
- created_at DATETIME default current_timestamp
- )")
- )
+(execute db "CREATE TABLE IF NOT EXISTS posts (
+ id TEXT PRIMARY KEY,
+ user_id TEXT,
+ content TEXT,
+ created_at DATETIME default current_timestamp,
+ parent_id TEXT
+ )")
+(execute db "CREATE TABLE IF NOT EXISTS flush_votes (
+ user_id TEXT PRIMARY KEY,
+ created_at DATETIME default current_timestamp
+ )")
+(execute db "CREATE TABLE IF NOT EXISTS users (
+ user_id TEXT PRIMARY KEY,
+ pw_hash TEXT,
+ created_at DATETIME default current_timestamp
+ )")
(define (gen-id)
(+ (pseudo-random-integer 65536)