projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
[project @ 1997-03-14 07:52:06 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
tests
/
deSugar
/
ds010.stderr
1
Desugared:
2
Test.z :: [(Char, Char, Char, Char, Char, Char, Char, Char, Char, Char)]
3
Test.z =
4
let
5
{- CoRec -}
6
ds.136 =
7
\ ds.137 ->
8
case ds.137 of {
9
Nil ->
10
Nil (Char,
11
Char,
12
Char,
13
Char,
14
Char,
15
Char,
16
Char,
17
Char,
18
Char,
19
Char)
20
(:) ds.138 ds.139 ->
21
let a.140 = ds.138
22
in
23
let
24
{- CoRec -}
25
ds.141 =
26
\ ds.142 ->
27
case ds.142 of {
28
Nil -> ds.136 ds.139
29
(:) ds.143 ds.144 ->
30
let b.145 = ds.143
31
in
32
let
33
{- CoRec -}
34
ds.146 =
35
\ ds.147 ->
36
case ds.147 of {
37
Nil -> ds.141 ds.144
38
(:) ds.148 ds.149 ->
39
let c.150 = ds.148
40
in
41
let
42
{- CoRec -}
43
ds.151 =
44
\ ds.152 ->
45
case
46
ds.152
47
of {
48
Nil ->
49
ds.146
50
ds.149
51
(:) ds.153
52
ds.154 ->
53
let
54
d.155 =
55
ds.153
56
in
57
let
58
{- CoRec -}
59
ds.156 =
60
\ ds.157 ->
61
case
62
ds.157
63
of {
64
Nil ->
65
ds.151
66
ds.154
67
(:) ds.158
68
ds.159 ->
69
let
70
e.160 =
71
ds.158
72
in
73
let
74
{- CoRec -}
75
ds.161 =
76
\ ds.162 ->
77
case
78
ds.162
79
of {
80
Nil ->
81
ds.156
82
ds.159
83
(:) ds.163
84
ds.164 ->
85
let
86
f.165 =
87
ds.163
88
in
89
let
90
{- CoRec -}
91
ds.166 =
92
\ ds.167 ->
93
case
94
ds.167
95
of {
96
Nil ->
97
ds.161
98
ds.164
99
(:) ds.168
100
ds.169 ->
101
let
102
g.170 =
103
ds.168
104
in
105
let
106
{- CoRec -}
107
ds.171 =
108
\ ds.172 ->
109
case
110
ds.172
111
of {
112
Nil ->
113
ds.166
114
ds.169
115
(:) ds.173
116
ds.174 ->
117
let
118
h.175 =
119
ds.173
120
in
121
let
122
{- CoRec -}
123
ds.176 =
124
\ ds.177 ->
125
case
126
ds.177
127
of {
128
Nil ->
129
ds.171
130
ds.174
131
(:) ds.178
132
ds.179 ->
133
let
134
i.180 =
135
ds.178
136
in
137
let
138
{- CoRec -}
139
ds.181 =
140
\ ds.182 ->
141
case
142
ds.182
143
of {
144
Nil ->
145
ds.176
146
ds.179
147
(:) ds.183
148
ds.184 ->
149
let
150
j.185 =
151
ds.183
152
in
153
(: (Char,
154
Char,
155
Char,
156
Char,
157
Char,
158
Char,
159
Char,
160
Char,
161
Char,
162
Char))
163
(MkTuple10!
164
Char
165
Char
166
Char
167
Char
168
Char
169
Char
170
Char
171
Char
172
Char
173
Char
174
a.140
175
b.145
176
c.150
177
d.155
178
e.160
179
f.165
180
g.170
181
h.175
182
i.180
183
j.185)
184
(ds.181
185
ds.184)
186
}
187
{- end CoRec -}
188
in
189
ds.181
190
"12"S
191
}
192
{- end CoRec -}
193
in
194
ds.176
195
"12"S
196
}
197
{- end CoRec -}
198
in
199
ds.171
200
"12"S
201
}
202
{- end CoRec -}
203
in
204
ds.166
205
"12"S
206
}
207
{- end CoRec -}
208
in
209
ds.161
210
"12"S
211
}
212
{- end CoRec -}
213
in
214
ds.156
215
"12"S
216
}
217
{- end CoRec -}
218
in ds.151 "12"S
219
}
220
{- end CoRec -}
221
in ds.146 "12"S
222
}
223
{- end CoRec -}
224
in ds.141 "12"S
225
}
226
{- end CoRec -}
227
in ds.136 "12"S
228