@@ -326,7 +326,7 @@ testDouble TestEnv{..} = TestCase $ do
326326testGeneric0 :: TestEnv -> Test
327327testGeneric0 TestEnv{..} = TestCase $ do
328328 let x0 = Gen0
329− r <- query conn "SELECT ?::int" x0
329+ r <- query conn "SELECT" x0
330330 r @?= [x0]
331331
332332testGeneric1 :: TestEnv -> Test
@@ -338,13 +338,13 @@ testGeneric1 TestEnv{..} = TestCase $ do
338338testGeneric2 :: TestEnv -> Test
339339testGeneric2 TestEnv{..} = TestCase $ do
340340 let x0 = Gen2 123 "asdf"
341− r <- query conn "SELECT ?::int" x0
341+ r <- query conn "SELECT ?::int, ?::text" x0
342342 r @?= [x0]
343343
344344testGeneric3 :: TestEnv -> Test
345345testGeneric3 TestEnv{..} = TestCase $ do
346346 let x0 = Gen3 123 "asdf" True
347− r <- query conn "SELECT ?::int" x0
347+ r <- query conn "SELECT ?::int, ?::text, ?::bool" x0
348348 r @?= [x0]
349349
350350data Gen0 = Gen0