Ticket #7258: W2.hs

File W2.hs, 6.4 KB (added by simonpj, 19 months ago)

Exhibts long compilation times

Line 
1
2module W2 (DT(..)) where
3
4data DT = DT {
5                field1 :: Int
6              , field2 :: Int
7              , field3 :: Int
8              , field4 :: Int
9              , field5 :: Int
10              , field6 :: Int
11              , field7 :: Int
12              , field8 :: Int
13              , field9 :: Int
14              , field10 :: Int
15              , field11 :: Int
16              , field12 :: Int
17              , field13 :: Int
18              , field14 :: Int
19              , field15 :: Int
20              , field16 :: Int
21              , field17 :: Int
22              , field18 :: Int
23              , field19 :: Int
24              , field20 :: Int
25              , field21 :: Int
26              , field22 :: Int
27              , field23 :: Int
28              , field24 :: Int
29              , field25 :: Int
30              , field26 :: Int
31              , field27 :: Int
32              , field28 :: Int
33              , field29 :: Int
34              , field30 :: Int
35              , field31 :: Int
36              , field32 :: Int
37              , field33 :: Int
38              , field34 :: Int
39              , field35 :: Int
40              , field36 :: Int
41              , field37 :: Int
42              , field38 :: Int
43              , field39 :: Int
44              , field40 :: Int
45              , field41 :: Int
46              , field42 :: Int
47              , field43 :: Int
48              , field44 :: Int
49              , field45 :: Int
50              , field46 :: Int
51              , field47 :: Int
52              , field48 :: Int
53              , field49 :: Int
54              , field50 :: Int
55              , field51 :: Int
56              , field52 :: Int
57              , field53 :: Int
58              , field54 :: Int
59              , field55 :: Int
60              , field56 :: Int
61              , field57 :: Int
62              , field58 :: Int
63              , field59 :: Int
64              , field60 :: Int
65              , field61 :: Int
66              , field62 :: Int
67              , field63 :: Int
68              , field64 :: Int
69              , field65 :: Int
70              , field66 :: Int
71              , field67 :: Int
72              , field68 :: Int
73              , field69 :: Int
74              , field70 :: Int
75              , field71 :: Int
76              , field72 :: Int
77              , field73 :: Int
78              , field74 :: Int
79              , field75 :: Int
80              , field76 :: Int
81              , field77 :: Int
82              , field78 :: Int
83              , field79 :: Int
84              , field80 :: Int
85              , field81 :: Int
86              , field82 :: Int
87              , field83 :: Int
88              , field84 :: Int
89              , field85 :: Int
90              , field86 :: Int
91              , field87 :: Int
92              , field88 :: Int
93              , field89 :: Int
94              , field90 :: Int
95              , field91 :: Int
96              , field92 :: Int
97              , field93 :: Int
98              , field94 :: Int
99              , field95 :: Int
100              , field96 :: Int
101              , field97 :: Int
102              , field98 :: Int
103              , field99 :: Int
104              , field100 :: Int
105              , field101 :: Int
106              , field102 :: Int
107              , field103 :: Int
108              , field104 :: Int
109              , field105 :: Int
110              , field106 :: Int
111              , field107 :: Int
112              , field108 :: Int
113              , field109 :: Int
114              , field110 :: Int
115              , field111 :: Int
116              , field112 :: Int
117              , field113 :: Int
118              , field114 :: Int
119              , field115 :: Int
120              , field116 :: Int
121              , field117 :: Int
122              , field118 :: Int
123              , field119 :: Int
124              , field120 :: Int
125              , field121 :: Int
126              , field122 :: Int
127              , field123 :: Int
128              , field124 :: Int
129              , field125 :: Int
130              , field126 :: Int
131              , field127 :: Int
132              , field128 :: Int
133              , field129 :: Int
134              , field130 :: Int
135              , field131 :: Int
136              , field132 :: Int
137              , field133 :: Int
138              , field134 :: Int
139              , field135 :: Int
140              , field136 :: Int
141              , field137 :: Int
142              , field138 :: Int
143              , field139 :: Int
144              , field140 :: Int
145              , field141 :: Int
146              , field142 :: Int
147              , field143 :: Int
148              , field144 :: Int
149              , field145 :: Int
150              , field146 :: Int
151              , field147 :: Int
152              , field148 :: Int
153              , field149 :: Int
154              , field150 :: Int
155              , field151 :: Int
156              , field152 :: Int
157              , field153 :: Int
158              , field154 :: Int
159              , field155 :: Int
160              , field156 :: Int
161              , field157 :: Int
162              , field158 :: Int
163              , field159 :: Int
164              , field160 :: Int
165              , field161 :: Int
166              , field162 :: Int
167              , field163 :: Int
168              , field164 :: Int
169              , field165 :: Int
170              , field166 :: Int
171              , field167 :: Int
172              , field168 :: Int
173              , field169 :: Int
174              , field170 :: Int
175              , field171 :: Int
176              , field172 :: Int
177              , field173 :: Int
178              , field174 :: Int
179              , field175 :: Int
180              , field176 :: Int
181              , field177 :: Int
182              , field178 :: Int
183              , field179 :: Int
184              , field180 :: Int
185              , field181 :: Int
186              , field182 :: Int
187              , field183 :: Int
188              , field184 :: Int
189              , field185 :: Int
190              , field186 :: Int
191              , field187 :: Int
192              , field188 :: Int
193              , field189 :: Int
194              , field190 :: Int
195              , field191 :: Int
196              , field192 :: Int
197              , field193 :: Int
198              , field194 :: Int
199              , field195 :: Int
200              , field196 :: Int
201              , field197 :: Int
202              , field198 :: Int
203              , field199 :: Int
204              , field200 :: Int
205    } deriving (Read)
206