@@ -46,7 +46,6 @@ tests =
4646 , TestLabel "Values" . testValues
4747 , TestLabel "Copy" . testCopy
4848 , TestLabel "Double" . testDouble
49− , TestLabel "0-ary generic" . testGeneric0
5049 , TestLabel "1-ary generic" . testGeneric1
5150 , TestLabel "2-ary generic" . testGeneric2
5251 , TestLabel "3-ary generic" . testGeneric3
@@ -323,11 +322,6 @@ testDouble TestEnv{..} = TestCase $ do
323322 [Only (x :: Double)] <- query_ conn "SELECT '-Infinity'::float8"
324323 x @?= (-1 / 0)
325324
326−testGeneric0 :: TestEnv -> Test
327−testGeneric0 TestEnv{..} = TestCase $ do
328− let x0 = Gen0
329− r <- query conn "SELECT" x0
330− r @?= [x0]
331325
332326testGeneric1 :: TestEnv -> Test
333327testGeneric1 TestEnv{..} = TestCase $ do
@@ -347,11 +341,6 @@ testGeneric3 TestEnv{..} = TestCase $ do
347341 r <- query conn "SELECT ?::int, ?::text, ?::bool" x0
348342 r @?= [x0]
349343
350−data Gen0 = Gen0
351− deriving (Show,Eq,Generic)
352−instance FromRow Gen0
353−instance ToRow Gen0
354−
355344data Gen1 = Gen1 Int
356345 deriving (Show,Eq,Generic)
357346instance FromRow Gen1