summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/ur/basis.urs2
-rw-r--r--src/monoize.sml4
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 7637f8fa..66e65804 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -783,7 +783,7 @@ val active : unit
-> tag [Code = transaction xbody] body [] [] []
val activeHead : unit
- -> tag [Code = transaction xhead] head [] [] []
+ -> tag [Code = transaction unit] head [] [] []
val head : unit -> tag [] html head [] []
val title : unit -> tag [] head [] [] []
diff --git a/src/monoize.sml b/src/monoize.sml
index 8889937e..d382194f 100644
--- a/src/monoize.sml
+++ b/src/monoize.sml
@@ -3604,9 +3604,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) =
(case attrs of
[("Code", e, _)] =>
((L'.EStrcat
- ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">active(execD(")), loc),
+ ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">execD(")), loc),
(L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc),
- (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc),
+ (L'.EPrim (Prim.String (")</script>")), loc)), loc)), loc),
fm)
| _ => raise Fail "Monoize: Bad <activeHead> attributes")