Bump a few more performance regressions from Type-indexed Typeable
[ghc.git] / testsuite / tests / perf / compiler / T13056.hs
1 {-# LANGUAGE DeriveDataTypeable #-}
2 {-# LANGUAGE DeriveGeneric #-}
3 {-# LANGUAGE DeriveFunctor #-}
4 {-# LANGUAGE DeriveFoldable #-}
5
6 module Bug where
7 import Data.Typeable
8 import GHC.Generics
9 import Data.Data
10
11 data Condition v = Condition
12 deriving (Functor, Foldable)
13
14 data CondTree v c a = CondNode
15 { condTreeData :: a
16 , condTreeConstraints :: c
17 , condTreeComponents :: [CondBranch v c a]
18 }
19 deriving (Functor, Foldable)
20
21 data CondBranch v c a = CondBranch
22 { condBranchCondition :: Condition v
23 , condBranchIfTrue :: CondTree v c a
24 , condBranchIfFalse :: Maybe (CondTree v c a)
25 }
26 deriving (Functor, Foldable)