@@ -327,7 +327,7 @@ testDouble TestEnv{..} = TestCase $ do
327327
328328testGeneric1 :: TestEnv -> Test
329329testGeneric1 TestEnv{..} = TestCase $ do
330− roundTrip (Gen1 123)
330+ roundTrip conn (Gen1 123)
331331 where
332332 roundTrip conn x0 = do
333333 r <- query conn "SELECT ?::int" (x0 :: Gen1)