diff options
author | Adam Chlipala <adam@chlipala.net> | 2013-04-16 11:25:56 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2013-04-16 11:25:56 -0400 |
commit | 05a5e255778d49d7cc2a62212613cf8f3e21414c (patch) | |
tree | 9f1d33697b1bb80f9a075360a115d6248a95772a | |
parent | f4dbd4d3e80432cf1bd41d7f423580da153f11b8 (diff) |
Get -css flag working again
-rw-r--r-- | src/css.sml | 2 | ||||
-rw-r--r-- | tests/funnyStyles.ur | 8 | ||||
-rw-r--r-- | tests/funnyStyles.urp | 4 |
3 files changed, 13 insertions, 1 deletions
diff --git a/src/css.sml b/src/css.sml index ece8cf6c..5db0c502 100644 --- a/src/css.sml +++ b/src/css.sml @@ -157,7 +157,7 @@ fun summarize file = (ECApp ( (EFfi ("Basis", "tag"), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), _), - (ECon (_, _, _, SOME (ENamed class, _)), _)), _), + (ENamed class, _)), _), _), _), _), _), _), _), diff --git a/tests/funnyStyles.ur b/tests/funnyStyles.ur new file mode 100644 index 00000000..7945a323 --- /dev/null +++ b/tests/funnyStyles.ur @@ -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> diff --git a/tests/funnyStyles.urp b/tests/funnyStyles.urp new file mode 100644 index 00000000..3ab5d634 --- /dev/null +++ b/tests/funnyStyles.urp @@ -0,0 +1,4 @@ +rewrite style FunnyStyles/booboo mixed_rule-applied +rewrite all FunnyStyles/* + +funnyStyles |