diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-11-28 16:56:45 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-11-28 16:56:45 -0500 |
| commit | 01c379cbff1dd59486da18916a49530ea0dd4f87 (patch) | |
| tree | bd2859407b849d931b71002f26d94e4340f0d5f7 /src/monoize.sml | |
| parent | 4c85cc245d53261ccbd1b67140024fd54bdedb74 (diff) | |
Allow any FFI module to declare new HTML tags
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 2 insertions, 2 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)]; |