Mercurial > urweb

changeset 1849:3005c66b70e8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get -css flag working again
author Adam Chlipala <adam@chlipala.net>
date Tue, 16 Apr 2013 11:25:56 -0400
parents e15234fbb163
children 30c56e3bcf47
files src/css.sml tests/funnyStyles.ur tests/funnyStyles.urp
diffstat 3 files changed, 13 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/css.sml	Tue Apr 16 10:55:48 2013 -0400
+++ b/src/css.sml	Tue Apr 16 11:25:56 2013 -0400
@@ -157,7 +157,7 @@
                                      (ECApp (
                                       (EFfi ("Basis", "tag"),
                                        _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _),
-                              (ECon (_, _, _, SOME (ENamed class, _)), _)), _),
+                              (ENamed class, _)), _),
                              _), _),
                             _), _),
                            _), _),
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/funnyStyles.ur	Tue Apr 16 11:25:56 2013 -0400
@@ -0,0 +1,8 @@
+style booboo
+style hoohoo
+
+fun main () : transaction page = return <xml><body>
+  <p class={booboo}>booboo</p>
+  <p class={hoohoo}>hoohoo</p>
+  <p class={null}>null</p>
+</body></xml>
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/funnyStyles.urp	Tue Apr 16 11:25:56 2013 -0400
@@ -0,0 +1,4 @@
+rewrite style FunnyStyles/booboo mixed_rule-applied
+rewrite all FunnyStyles/*
+
+funnyStyles