diff src/urweb.grm @ 1833:be0c4e2e488a

Allow any FFI module to declare new HTML tags
author Adam Chlipala <adam@chlipala.net>
date Wed, 28 Nov 2012 16:56:45 -0500
parents bb942416bf1c
children 146ec8e90063
line wrap: on
line diff
--- a/src/urweb.grm	Wed Nov 28 11:45:46 2012 -0500
+++ b/src/urweb.grm	Wed Nov 28 16:56:45 2012 -0500
@@ -1608,7 +1608,7 @@
                                              val pos = s (BEGIN_TAGleft, BEGIN_TAGright)
                                          in
                                              (bt,
-                                              (EVar (["Basis"], bt, Infer), pos))
+                                              (EVar ([], bt, Infer), pos))
                                          end)
        | tagHead LBRACE cexp RBRACE     (#1 tagHead, (ECApp (#2 tagHead, cexp), s (tagHeadleft, RBRACEright)))