summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-09-24 07:52:57 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-09-24 07:52:57 -0400
commitf93acbb03f1ea669499bfb39d201ae8dd48f101b (patch)
tree92fb5e7eb7efe61893c60ff43a4f3c83d1fa91db /src/jscomp.sml
parent5d3756215c0141917e0a6dfc048d638d116fe462 (diff)
Might have fixed demo/listEdit
Diffstat (limited to 'src/jscomp.sml')
-rw-r--r--src/jscomp.sml8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml
index 8e0297c3..b968ce79 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -910,9 +910,9 @@ fun process file =
^ "\"},cons("),
e,
str (",cons({c:\"c\",v:function(s){var t=s.split(\"/\");var i=0;return "
- ^ unurl ^ "}},cons({c:\"!\",e:"),
+ ^ unurl ^ "}},cons("),
ek,
- str ("},cons("
+ str (",cons("
^ (case eff of
ReadCookieWrite => "true"
| _ => "false")
@@ -929,9 +929,9 @@ fun process file =
(strcat [str ("{c:\"f\",f:rv,a:cons("),
e,
str (",cons({c:\"c\",v:function(s){var t=s.split(\"/\");var i=0;return "
- ^ unurl ^ "}},cons({c:\"!\",e:"),
+ ^ unurl ^ "}},cons("),
ek,
- str ("},null)))}")],
+ str (",null)))}")],
st)
end