testsuite/tests/deriving/should_fail/T4528.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE GADTs, StandaloneDeriving #-}

module T4528 where

data Foo a where
   A, B :: Foo Int
   C :: Foo Bool

deriving instance Enum (Foo a)
deriving instance Bounded (Foo a)