af453f90865b1d3da65cd5b82986be25ac71415e
[ghc-hetmet.git] / ghc / tests / deriving / should_compile / drv005.stderr
1
2
3 ================================================================================
4 Typechecked:
5 {- nonrec -}
6 Foo1{-r4,x-}{i} =
7     Foo1{-r4,x-}{i}
8         {}
9 Foo2{-r3,x-}{i} =
10     Foo2{-r3,x-}{i}
11         {}
12 Foo3{-r6,x-}{i} =
13     Foo3{-r6,x-}{i}
14         {}
15 Foo4{-r8,x-}{i} =
16     Foo4{-r8,x-}{i}
17         {}
18 Foo5{-ra,x-}{i} =
19     Foo5{-ra,x-}{i}
20         {}
21 Foo6{-rc,x-}{i} =
22     Foo6{-rc,x-}{i}
23         {}
24 Foo7{-re,x-}{i} =
25     Foo7{-re,x-}{i}
26         {}
27 Foo8{-rg,x-}{i} =
28     Foo8{-rg,x-}{i}
29         {}
30 {- rec -}
31 AbsBinds [] [] [([], $d1{-rJK,x-}, d.Enum_aHX)]
32     map_aJU =
33         map_aJP
34     AbsBinds [] [] [([], toEnum_aJT, toEnum_aI0)]
35         toEnum_aI0
36             a_rH5   =   tag2con_Foo#_rGH
37                             a_rH5
38     AbsBinds [] [] [([], fromEnum_aJS, fromEnum_aI5)]
39         fromEnum_aI5
40             a_rHp   =   case
41                             con2tag_Foo#_rGJ
42                                 a_rHp
43                         of
44                           a#_rHr  ->  PrelBase.I#{-5b,p-}{i}
45                                           a#_rHr
46     AbsBinds [] [] [([], enumFrom_aJR, enumFrom_aIc)]
47         enumFrom_aIc
48             a_rH9   =   case
49                             con2tag_Foo#_rGJ
50                                 a_rH9
51                         of
52                           a#_rHb  ->  map_aJP
53                                           [PrelBase.Int{-3g,p-}, Foo{-rZ,x-}]
54                                           tag2con_Foo#_rGH
55                                           enumFromTo_aJO
56                                               PrelBase.I#{-5b,p-}{i}
57                                                   a#_rHb
58                                               maxtag_Foo#_rGI
59     AbsBinds [] [] [([], enumFromThen_aJQ, enumFromThen_aIA)]
60         enumFromThen_aIA
61             a_rHf b_rHh
62                     =   case
63                             con2tag_Foo#_rGJ
64                                 a_rHf
65                         of
66                           a#_rHj  ->  case
67                                           con2tag_Foo#_rGJ
68                                               b_rHh
69                                       of
70                                         b#_rHl  ->  map_aJU
71                                                         [PrelBase.Int{-3g,p-}, Foo{-rZ,x-}]
72                                                         tag2con_Foo#_rGH
73                                                         enumFromThenTo_aJN
74                                                             PrelBase.I#{-5b,p-}{i}
75                                                                 a#_rHj
76                                                             PrelBase.I#{-5b,p-}{i}
77                                                                 b#_rHl
78                                                             maxtag_Foo#_rGI
79     AbsBinds [] [] [([], enumFromTo_aJ1, enumFromTo_aJ3)]
80         enumFromTo_aJ3
81             =   $menumFromTo_aJM
82     AbsBinds [] [] [([], enumFromThenTo_aJa, enumFromThenTo_aJc)]
83         enumFromThenTo_aJc
84             =   $menumFromThenTo_aJL
85     d.Enum_aHX =
86         ({-dict-}
87          []
88          [toEnum_aJT, fromEnum_aJS, enumFrom_aJR, enumFromThen_aJQ, enumFromTo_aJ1, enumFromThenTo_aJa])
89 {- rec -}
90 AbsBinds [] [] [([], $d2{-rJW,x-}, d.Eval_aJw)]
91     d.Eval_aJw =
92         ({-dict-} [] [])
93 {- nonrec -}
94 d.Functor_aJy =
95     PrelBase.$d25{-rbd,p-}
96 map_aJP =
97     PrelBase.map{-rY,p-}
98         PrelBase.[]{-3j,p-}
99         d.Functor_aJy
100 d.Enum_aJB =
101     PrelBase.$d5{-rbE,p-}
102 enumFromTo_aJO =
103     PrelBase.enumFromTo{-8W,p-}
104         PrelBase.Int{-3g,p-}
105         d.Enum_aJB
106 d.Enum_aJE =
107     d.Enum_aJB
108 enumFromThenTo_aJN =
109     PrelBase.enumFromThenTo{-8X,p-}
110         PrelBase.Int{-3g,p-}
111         d.Enum_aJE
112 d.Enum_aJG =
113     $d1{-rJK,x-}
114 $menumFromTo_aJM =
115     PrelBase.$menumFromTo{-rc8,p-}
116         Foo{-rZ,x-}
117         d.Enum_aJG
118 d.Enum_aJJ =
119     d.Enum_aJG
120 $menumFromThenTo_aJL =
121     PrelBase.$menumFromThenTo{-rc7,p-}
122         Foo{-rZ,x-}
123         d.Enum_aJJ
124 {- nonrec -}
125 AbsBinds [] [] [([], con2tag_Foo#_rGJ, con2tag_Foo#_aHG)]
126     con2tag_Foo#_aHG
127         Foo1{-r4,x-}{i}
128                 =   0#
129     con2tag_Foo#_aHG
130         Foo2{-r3,x-}{i}
131                 =   1#
132     con2tag_Foo#_aHG
133         Foo3{-r6,x-}{i}
134                 =   2#
135     con2tag_Foo#_aHG
136         Foo4{-r8,x-}{i}
137                 =   3#
138     con2tag_Foo#_aHG
139         Foo5{-ra,x-}{i}
140                 =   4#
141     con2tag_Foo#_aHG
142         Foo6{-rc,x-}{i}
143                 =   5#
144     con2tag_Foo#_aHG
145         Foo7{-re,x-}{i}
146                 =   6#
147     con2tag_Foo#_aHG
148         Foo8{-rg,x-}{i}
149                 =   7#
150 {- nonrec -}
151 {- nonrec -}
152 AbsBinds [] [] [([], maxtag_Foo#_rGI, maxtag_Foo#_aHK)]
153     maxtag_Foo#_aHK
154                 =   PrelBase.I#{-5b,p-}{i}
155                         7#
156 {- nonrec -}
157 {- nonrec -}
158 AbsBinds [] [] [([], tag2con_Foo#_rGH, tag2con_Foo#_aHO)]
159     tag2con_Foo#_aHO
160         (PrelBase.I#{-5b,p-}{i} 0#)
161                 =   Foo1{-r4,x-}{i}
162     tag2con_Foo#_aHO
163         (PrelBase.I#{-5b,p-}{i} 1#)
164                 =   Foo2{-r3,x-}{i}
165     tag2con_Foo#_aHO
166         (PrelBase.I#{-5b,p-}{i} 2#)
167                 =   Foo3{-r6,x-}{i}
168     tag2con_Foo#_aHO
169         (PrelBase.I#{-5b,p-}{i} 3#)
170                 =   Foo4{-r8,x-}{i}
171     tag2con_Foo#_aHO
172         (PrelBase.I#{-5b,p-}{i} 4#)
173                 =   Foo5{-ra,x-}{i}
174     tag2con_Foo#_aHO
175         (PrelBase.I#{-5b,p-}{i} 5#)
176                 =   Foo6{-rc,x-}{i}
177     tag2con_Foo#_aHO
178         (PrelBase.I#{-5b,p-}{i} 6#)
179                 =   Foo7{-re,x-}{i}
180     tag2con_Foo#_aHO
181         (PrelBase.I#{-5b,p-}{i} 7#)
182                 =   Foo8{-rg,x-}{i}
183     tag2con_Foo#_aHO
184         _       =   IOBase.error{-87,p-}
185                         Foo{-rZ,x-}
186                         "Urk! in TcGenDeriv"
187 {- nonrec -}
188 ghc: module version changed to 1; reason: no old .hi file