change to mconcat

This commit is contained in:
nek0 2019-07-21 16:05:31 +02:00
parent 508c16012d
commit 8b5f6b3a42

View file

@ -9,7 +9,7 @@ import Opaleye as O
import Opaleye.Constant as C import Opaleye.Constant as C
initAmount :: PGS.Query initAmount :: PGS.Query
initAmount = foldl (<>) "" $ initAmount = mconcat
[ "CREATE TABLE IF NOT EXISTS \"amount\" (" [ "CREATE TABLE IF NOT EXISTS \"amount\" ("
, "amounts_product_id BIGINT NOT NULL REFERENCES product ON DELETE CASCADE," , "amounts_product_id BIGINT NOT NULL REFERENCES product ON DELETE CASCADE,"
, "amounts_timestamp TIMESTAMPTZ NOT NULL," , "amounts_timestamp TIMESTAMPTZ NOT NULL,"