testsuite/tests/ghc-regress/deriving/should_compile/drv006.hs


1
2
3
4
5
6
7
8
9

-- !!! simple examples of deriving Ix
--
module ShouldSucceed where
import Data.Ix

data Foo = Foo1 | Foo2 | Foo3 | Foo4 | Foo5 | Foo6 | Foo7 | Foo8
    	 deriving (Eq, Ord, Ix, Show)

data Bar a b = MkBar a Int b Integer a