Fix typo in createView
commit09e449bc48f6a897902846e3714ea1940c7eea18
authorShane O'Brien <shane.obrien@circuithub.com>
dateTue 13 Apr 2021, 21:22 (6 years ago)
parentef91171
src/Rel8/Statement/View.hs+1−1
@@ -46,7 +46,7 @@ createView (TableSchema name mschema names) query =
4646 params = Hasql.noParams
4747 decode = Hasql.noResult
4848 prepare = False
49− sql = "CREATE VIEW " <> title <> " WITH " <> select
49+ sql = "CREATE VIEW " <> title <> " AS " <> select
5050 where
5151 title = case mschema of
5252 Nothing -> quote name