Mercurial > urweb
comparison src/css.sml @ 1754:a1380fc15cb5
Fix bugs in support for 'style' and 'dynStyle'
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 06 May 2012 15:46:25 -0400 |
parents | 0577be31a435 |
children | e15234fbb163 |
comparison
equal
deleted
inserted
replaced
1753:957168662198 | 1754:a1380fc15cb5 |
---|---|
143 | EApp ( | 143 | EApp ( |
144 (EApp ( | 144 (EApp ( |
145 (EApp ( | 145 (EApp ( |
146 (EApp ( | 146 (EApp ( |
147 (EApp ( | 147 (EApp ( |
148 (ECApp ( | 148 (EApp ( |
149 (ECApp ( | 149 (EApp ( |
150 (ECApp ( | 150 (ECApp ( |
151 (ECApp ( | 151 (ECApp ( |
152 (ECApp ( | 152 (ECApp ( |
153 (ECApp ( | 153 (ECApp ( |
154 (ECApp ( | 154 (ECApp ( |
155 (ECApp ( | 155 (ECApp ( |
156 (EFfi ("Basis", "tag"), | 156 (ECApp ( |
157 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), | 157 (ECApp ( |
158 (ECon (_, _, _, SOME (ENamed class, _)), _)), _), | 158 (EFfi ("Basis", "tag"), |
159 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), | |
160 (ECon (_, _, _, SOME (ENamed class, _)), _)), _), | |
161 _), _), | |
162 _), _), | |
159 _), _), | 163 _), _), |
160 attrs), _), | 164 attrs), _), |
161 tag), _), | 165 tag), _), |
162 xml) => | 166 xml) => |
163 let | 167 let |
183 | EApp ( | 187 | EApp ( |
184 (EApp ( | 188 (EApp ( |
185 (EApp ( | 189 (EApp ( |
186 (EApp ( | 190 (EApp ( |
187 (EApp ( | 191 (EApp ( |
188 (ECApp ( | 192 (EApp ( |
189 (ECApp ( | 193 (EApp ( |
190 (ECApp ( | 194 (ECApp ( |
191 (ECApp ( | 195 (ECApp ( |
192 (ECApp ( | 196 (ECApp ( |
193 (ECApp ( | 197 (ECApp ( |
194 (ECApp ( | 198 (ECApp ( |
195 (ECApp ( | 199 (ECApp ( |
196 (EFfi ("Basis", "tag"), | 200 (ECApp ( |
197 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), | 201 (ECApp ( |
202 (EFfi ("Basis", "tag"), | |
203 _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), | |
204 _), _), | |
205 _), _), | |
198 _), _), | 206 _), _), |
199 _), _), | 207 _), _), |
200 attrs), _), | 208 attrs), _), |
201 tag), _), | 209 tag), _), |
202 xml) => | 210 xml) => |