change to mconcat

This commit is contained in:
nek0 2019-07-21 16:05:05 +02:00
parent a15c075d77
commit d7c1a9de89
3 changed files with 3 additions and 3 deletions

View file

@ -49,7 +49,7 @@ import Model.User
initToken :: PGS.Query
initToken = foldl (<>) "" $
initToken = mconcat
[ "create table if not exists \"token\" ("
, "token_string bytea not null primary key,"
, "token_user integer references \"user\"(user_id) not null,"

View file

@ -31,7 +31,7 @@ import Opaleye.Constant as C
import Types
initProduct :: PGS.Query
initProduct = foldl (<>) "" $
initProduct = mconcat
[ "create table if not exists \"product\" ("
, "product_id serial primary key,"
, "product_ident varchar(128) not null,"

View file

@ -34,7 +34,7 @@ import Types.Auth
import Types.Reader
initUser :: PGS.Query
initUser = foldl (<>) "" $
initUser = mconcat
[ "create table if not exists \"user\" ("
, "user_id serial primary key,"
, "user_ident varchar(128) not null,"