Mercurial > urweb

diff src/monoize.sml @ 1292:a671c986f517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support multiple CSS classes for a single tag
author Adam Chlipala <adam@chlipala.net>
date Sun, 05 Sep 2010 12:50:06 -0400
parents 6791454653c5
children acabf3935060
line wrap: on
line diff
--- a/src/monoize.sml	Sat Sep 04 14:12:02 2010 -0400
+++ b/src/monoize.sml	Sun Sep 05 12:50:06 2010 -0400
@@ -2806,6 +2806,15 @@
                 ((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"), _), _), _),