diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-09-22 17:12:20 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-09-22 17:12:20 -0400 |
commit | 5d3756215c0141917e0a6dfc048d638d116fe462 (patch) | |
tree | 3e820ed42ed7d6327b54c1b6eb4afad7c81ebf25 /src/monoize.sml | |
parent | ee1639d9e3afa41c85382ab991e2229a91be4c21 (diff) |
demo/react works with interpretation
Diffstat (limited to 'src/monoize.sml')
-rw-r--r-- | src/monoize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index c0ae1fee..e0744cbe 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2682,7 +2682,7 @@ fun monoExp (env, st, fm) (all as (e, loc)) = [("Signal", e, _)] => ((L'.EStrcat ((L'.EPrim (Prim.String ("<script type=\"text/javascript\">dyn(\"" - ^ tag ^ "\", exec(")), loc), + ^ tag ^ "\", execD(")), loc), (L'.EStrcat ((L'.EJavaScript (L'.Script, e), loc), (L'.EPrim (Prim.String ("))</script>")), loc)), loc)), loc), fm) |