Show sources of cost centers in .prof
[ghc.git] / testsuite / tests / generics / T10361a.hs
1 {-# LANGUAGE DeriveAnyClass #-}
2 {-# LANGUAGE StandaloneDeriving #-}
3 {-# LANGUAGE TypeFamilies #-}
4 module T10361a where
5
6 class C1 a where
7 type T1 a
8 type instance T1 a = Char
9
10 class C2 a where -- equivalent to C1
11 type T2 a
12 type instance T2 a = Char
13
14 class C3 a where -- equivalent to C1, C2
15 type T3 a
16 type instance T3 a = Char
17
18 data A = B
19 deriving C1
20
21 deriving instance C2 A
22
23 instance C3 A
24
25 test1 :: T1 A
26 test1 = 'x'
27
28 test2 :: T2 A
29 test2 = 'x'
30
31 test3 :: T3 A
32 test3 = 'x'