summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-06-23 08:44:03 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-06-23 08:44:03 -0400
commitf4416ce8fb29f7cd967bca7d66333dd7c4415243 (patch)
treec8508b1281008d4b1a6229db3720e094b3e1615e /src
parentc274a689b2ff024a985fe3e64086ab47e098a807 (diff)
'show' instance for 'css_class'
Diffstat (limited to 'src')
-rw-r--r--src/monoize.sml6
1 files changed, 6 insertions, 0 deletions
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") =>