summaryrefslogtreecommitdiff
path: root/src/jscomp.sml
diff options
context:
space:
mode:
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