summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2012-11-28 16:56:45 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2012-11-28 16:56:45 -0500
commit9d38076e9a1dc49faec13596a2f707269c2a0ad7 (patch)
treebd2859407b849d931b71002f26d94e4340f0d5f7 /src
parent550c44b258fcbb3248cda6c6401ae17f513d0ba5 (diff)
Allow any FFI module to declare new HTML tags
Diffstat (limited to 'src')
-rw-r--r--src/monoize.sml4
-rw-r--r--src/urweb.grm2
2 files changed, 3 insertions, 3 deletions
diff --git a/src/monoize.sml b/src/monoize.sml
index b51c5d77..004f69cc 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -3203,7 +3203,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
let
fun getTag' (e, _) =
case e of
- L.EFfi ("Basis", tag) => (tag, [])
+ L.EFfi (_, tag) => (tag, [])
| L.ECApp (e, t) => let
val (tag, ts) = getTag' e
in
@@ -3215,7 +3215,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
fun getTag (e, _) =
case e of
- L.EFfiApp ("Basis", tag, [((L.ERecord [], _), _)]) => (tag, [])
+ L.EFfiApp (_, tag, [((L.ERecord [], _), _)]) => (tag, [])
| L.EApp (e, (L.ERecord [], _)) => getTag' e
| _ => (E.errorAt loc "Non-constant XML tag";
Print.eprefaces' [("Expression", CorePrint.p_exp env tag)];
diff --git a/src/urweb.grm b/src/urweb.grm
index 084cec1e..a45c7ffa 100644
--- a/src/urweb.grm
+++ b/src/urweb.grm
@@ -1608,7 +1608,7 @@ tagHead: BEGIN_TAG (let
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)))