summaryrefslogtreecommitdiff
path: root/src/monoize.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-09-05 12:50:06 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-09-05 12:50:06 -0400
commit1d30544730c4785eef4aabc4a224c03fe1b26983 (patch)
tree48228fa3115dbfd0aa879241a65d8329402ba5f7 /src/monoize.sml
parent804444d398bd08b098a941522861d8fb47631d90 (diff)
Support multiple CSS classes for a single tag
Diffstat (limited to 'src/monoize.sml')
-rw-r--r--src/monoize.sml9
1 files changed, 9 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index b76abb67..cde1af70 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -2806,6 +2806,15 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
((L'.ESetval (e1, e2), loc), fm)
end
+ | L.EFfiApp ("Basis", "classes", [s1, s2]) =>
+ let
+ val (s1, fm) = monoExp (env, st, fm) s1
+ val (s2, fm) = monoExp (env, st, fm) s2
+ in
+ ((L'.EStrcat (s1, (L'.EStrcat ((L'.EPrim (Prim.String " "), loc), s2), loc)), loc),
+ fm)
+ end
+
| L.EApp (
(L.ECApp (
(L.ECApp ((L.EFfi ("Basis", "cdata"), _), _), _),