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 | ee4fe2b19b4aec0da3d464c2978e36d00beb5d8d (patch) | |
tree | 9f1d33697b1bb80f9a075360a115d6248a95772a | |
parent | a2386e85bac4e7da8fa1f29a676941b592d35a5d (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 |