From 05a5e255778d49d7cc2a62212613cf8f3e21414c Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 16 Apr 2013 11:25:56 -0400 Subject: Get -css flag working again --- src/css.sml | 2 +- tests/funnyStyles.ur | 8 ++++++++ tests/funnyStyles.urp | 4 ++++ 3 files changed, 13 insertions(+), 1 deletion(-) create mode 100644 tests/funnyStyles.ur create mode 100644 tests/funnyStyles.urp 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 +

booboo

hoohoo

null

+ 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 -- cgit v1.2.3