From 25f4cc36cfd766a9d5ca7e6572b291c23fd16c5d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Thu, 23 Jun 2011 08:44:03 -0400
Subject: 'show' instance for 'css_class'

---
 src/monoize.sml | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/monoize.sml b/src/monoize.sml
index b761f0a5..c0be7583 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -1202,6 +1202,12 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
             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") =>
-- 
cgit v1.2.3