Mercurial > urweb

diff src/monoize.sml @ 1477:d65387bdc557

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'show' instance for 'css_class'
author Adam Chlipala <adam@chlipala.net>
date Thu, 23 Jun 2011 08:44:03 -0400
parents b703b375c3c0
children f561025bb68e
line wrap: on
line diff
--- a/src/monoize.sml	Wed Jun 22 13:58:43 2011 -0430
+++ b/src/monoize.sml	Thu Jun 23 08:44:03 2011 -0400
@@ -1202,6 +1202,12 @@
             in
                 ((L'.EAbs ("s", s, s, (L'.ERel 0, loc)), loc), fm)
             end
+          | L.EFfi ("Basis", "show_css_class") =>
+            let
+                val s = (L'.TFfi ("Basis", "string"), loc)
+            in
+                ((L'.EAbs ("s", s, s, (L'.ERel 0, loc)), loc), fm)
+            end
           | L.EFfi ("Basis", "show_char") =>
             ((L'.EFfi ("Basis", "charToString"), loc), fm)
           | L.EFfi ("Basis", "show_bool") =>