@@ -46,7 +46,7 @@ createView (TableSchema name mschema names) query =
46 params = Hasql.noParams
46 params = Hasql.noParams
47 decode = Hasql.noResult
47 decode = Hasql.noResult
48 prepare = False
48 prepare = False
49− sql = "CREATE VIEW " <> title <> " WITH " <> select
49+ sql = "CREATE VIEW " <> title <> " AS " <> select
51 title = case mschema of
51 title = case mschema of
52 Nothing -> quote name
52 Nothing -> quote name