change to mconcat
This commit is contained in:
parent
508c16012d
commit
8b5f6b3a42
1 changed files with 1 additions and 1 deletions
|
@ -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,"
|
||||||
|
|
Loading…
Reference in a new issue