Commit 7b5674ce authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add test for Trac #4302

parent c50f4560
{-# LANGUAGE StandaloneDeriving, DeriveDataTypeable, DeriveFunctor, DeriveFoldable, DeriveTraversable, EmptyDataDecls #-}
module T4302 where
import Ix
import Data.Typeable
import Data.Data
import Data.Foldable
import Data.Traversable
data Test a
deriving instance Eq (Test a)
deriving instance Ord (Test a)
deriving instance Typeable1 Test
deriving instance Data a => Data (Test a)
deriving instance Functor Test
deriving instance Foldable Test
deriving instance Traversable Test
......@@ -22,6 +22,7 @@ test('T3057', if_compiler_lt('ghc', '6.11', expect_fail), compile, [''])
test('T3012', normal, compile, [''])
test('T3965', normal, compile, [''])
test('T4220', normal, compile, [''])
test('T4302', normal, compile, [''])
test('drv-functor1',
if_compiler_lt('ghc', '6.11', expect_fail),
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment