From 8b5f6b3a42aab627d2906bcf1af5ba21e4dc5d1b Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 21 Jul 2019 16:05:31 +0200 Subject: [PATCH] change to mconcat --- src/Model/Amount.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Model/Amount.hs b/src/Model/Amount.hs index df13a36..665fb51 100644 --- a/src/Model/Amount.hs +++ b/src/Model/Amount.hs @@ -9,7 +9,7 @@ import Opaleye as O import Opaleye.Constant as C initAmount :: PGS.Query -initAmount = foldl (<>) "" $ +initAmount = mconcat [ "CREATE TABLE IF NOT EXISTS \"amount\" (" , "amounts_product_id BIGINT NOT NULL REFERENCES product ON DELETE CASCADE," , "amounts_timestamp TIMESTAMPTZ NOT NULL,"