Add db-prepared-statements config

test/Main.hs

@@ -200,4 +200,4 @@ main = do
 
   where
     setupDbStructure pool schemas extraSearchPath ver =
-      either (panic.show) id <$> P.use pool (HT.transaction HT.ReadCommitted HT.Read $ getDbStructure (toList schemas) extraSearchPath ver)
+      either (panic.show) id <$> P.use pool (HT.transaction HT.ReadCommitted HT.Read $ getDbStructure (toList schemas) extraSearchPath ver True)

test/SpecHelper.hs

@@ -92,6 +92,7 @@ _baseCfg = let secret = Just $ encodeUtf8 "reallyreallyreallyreallyverysafe" in
   , configLogLevel          = LogCrit
   , configTxRollbackAll     = False
   , configTxAllowOverride   = True
+  , configDbPrepared        = True
   }
 
 testCfg :: Text -> AppConfig

test/fixtures/schema.sql

@@ -1149,7 +1149,7 @@ $$;
 
 CREATE FUNCTION test.sayhello_variadic(name TEXT, VARIADIC v TEXT[]) RETURNS text
 LANGUAGE SQL AS $$
-  SELECT 'Hello, ' || name 
+  SELECT 'Hello, ' || name
 $$;
 
 create or replace function test.raise_pt402() returns void as $$
@@ -1859,3 +1859,7 @@ create function v2.get_parents_below(id int)
 returns setof v2.parents as $$
   select * from v2.parents where id < $1;
 $$ language sql;
+
+-- Only used for manually testing creating prepared statements
+create view prepared_statements as
+select * from pg_catalog.pg_prepared_statements;