Mercurial > urweb
changeset 1477:d65387bdc557
'show' instance for 'css_class'
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 23 Jun 2011 08:44:03 -0400 (2011-06-23) |
parents | 3bef8d50b4d6 |
children | a10d080123ec |
files | lib/ur/basis.urs src/monoize.sml tests/showClass.ur |
diffstat | 3 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/ur/basis.urs Wed Jun 22 13:58:43 2011 -0430 +++ b/lib/ur/basis.urs Thu Jun 23 08:44:03 2011 -0400 @@ -593,6 +593,7 @@ (** XML *) type css_class +val show_css_class : show css_class val classes : css_class -> css_class -> css_class (* The equivalent of writing one class after the other, separated by a space, in * an HTML 'class' attribute *)
--- 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") =>