summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 14:52:47 +0400
committerGravatar Sergey Mironov <grrwlf@gmail.com>2013-12-06 14:52:47 +0400
commitfa448e6a07ce4435d596019497a3da8e4eb33f23 (patch)
tree5608da67b0ecac2ce7970688afecced61a7a7e13
parent661efa4149bbb0aebf3e74e2707976b8b6ca80bb (diff)
activeHead: don't modify the head. just execute the code provided
-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")