@@ -326,7 +326,7 @@ testDouble TestEnv{..} = TestCase $ do
326testGeneric0 :: TestEnv -> Test
326testGeneric0 :: TestEnv -> Test
327testGeneric0 TestEnv{..} = TestCase $ do
327testGeneric0 TestEnv{..} = TestCase $ do
328 let x0 = Gen0
328 let x0 = Gen0
329− r <- query conn "SELECT ?::int" x0
329+ r <- query conn "SELECT" x0
330 r @?= [x0]
330 r @?= [x0]
332testGeneric1 :: TestEnv -> Test
332testGeneric1 :: TestEnv -> Test
@@ -338,13 +338,13 @@ testGeneric1 TestEnv{..} = TestCase $ do
338testGeneric2 :: TestEnv -> Test
338testGeneric2 :: TestEnv -> Test
339testGeneric2 TestEnv{..} = TestCase $ do
339testGeneric2 TestEnv{..} = TestCase $ do
340 let x0 = Gen2 123 "asdf"
340 let x0 = Gen2 123 "asdf"
341− r <- query conn "SELECT ?::int" x0
341+ r <- query conn "SELECT ?::int, ?::text" x0
342 r @?= [x0]
342 r @?= [x0]
344testGeneric3 :: TestEnv -> Test
344testGeneric3 :: TestEnv -> Test
345testGeneric3 TestEnv{..} = TestCase $ do
345testGeneric3 TestEnv{..} = TestCase $ do
346 let x0 = Gen3 123 "asdf" True
346 let x0 = Gen3 123 "asdf" True
347− r <- query conn "SELECT ?::int" x0
347+ r <- query conn "SELECT ?::int, ?::text, ?::bool" x0
348 r @?= [x0]
348 r @?= [x0]
350data Gen0 = Gen0
350data Gen0 = Gen0