blob: 2b0bca6b07e21351260f607f1f39ed380a200005 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE DeriveDataTypeable #-}
import Data.Data
data Foo = FooA | FooB
deriving instance Show Foo
deriving instance {-# Overlappable #-} Eq Foo
deriving instance {-# Overlapping #-} Ord Foo
deriving instance {-# Overlaps #-} Typeable Foo
deriving instance {-# Incoherent #-} Data Foo
|
