From f6503a17071a8a03ba00cf262f3e46f2f07257ee Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 16 Apr 2019 13:03:07 +0200 Subject: [PATCH] create table on start --- src/Main.hs | 1 + src/Model/User.hs | 3 +++ 2 files changed, 4 insertions(+) diff --git a/src/Main.hs b/src/Main.hs index d5587a7..a4b55e6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -26,6 +26,7 @@ main :: IO () main = do conn <- connectPostgreSQL "host='localhost' port=5432 dbname='mateamt' user='mateamt' password='mateamt'" + execute_ conn initUser run 3000 (app conn) app :: Connection -> Application diff --git a/src/Model/User.hs b/src/Model/User.hs index 5007dfc..3ac0cf3 100644 --- a/src/Model/User.hs +++ b/src/Model/User.hs @@ -62,6 +62,9 @@ instance ToJSON UserSubmit where instance FromJSON UserSubmit +initUser :: PGS.Query +initUser = "create table if not exists \"user\" (id serial, ident varchar(128) not null, balance integer not null, time_stamp date not null, email varchar(128), avatar integer, pin varchar(128))" + userTable :: Table ( Maybe (Field SqlInt4) , Field SqlText