Mercurial > urweb

diff src/monoize.sml @ 1556:e1f5d9c4cc20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
An abstract type of IDs
author Adam Chlipala <adam@chlipala.net>
date Sat, 03 Sep 2011 12:51:05 -0400
parents a99b743a3087
children 5691ec310618
line wrap: on
line diff
--- a/src/monoize.sml	Sat Sep 03 11:48:12 2011 -0400
+++ b/src/monoize.sml	Sat Sep 03 12:51:05 2011 -0400
@@ -219,6 +219,7 @@
                   | L.CApp ((L.CApp ((L.CFfi ("Basis", "xhtml"), _), _), _), _) =>
                     (L'.TFfi ("Basis", "string"), loc)
                   | L.CFfi ("Basis", "css_class") => (L'.TFfi ("Basis", "string"), loc)
+                  | L.CFfi ("Basis", "id") => (L'.TFfi ("Basis", "string"), loc)
 
                   | L.CApp ((L.CFfi ("Basis", "serialized"), _), _) =>
                     (L'.TFfi ("Basis", "string"), loc)