change to mconcat

src/Model/Auth.hs

@@ -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,"

src/Model/Product.hs

@@ -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,"

src/Model/User.hs

@@ -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,"