summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2013-04-16 11:25:56 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2013-04-16 11:25:56 -0400
commit05a5e255778d49d7cc2a62212613cf8f3e21414c (patch)
tree9f1d33697b1bb80f9a075360a115d6248a95772a
parentf4dbd4d3e80432cf1bd41d7f423580da153f11b8 (diff)
Get -css flag working again
-rw-r--r--src/css.sml2
-rw-r--r--tests/funnyStyles.ur8
-rw-r--r--tests/funnyStyles.urp4
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