Mercurial > urweb

diff src/monoize.sml @ 466:1626dcba13ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cookies work across pages
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 14:03:50 -0500
parents ddd363e856ff
children 3f1b9231a37b
line wrap: on
line diff
--- a/src/monoize.sml	Thu Nov 06 12:46:45 2008 -0500
+++ b/src/monoize.sml	Thu Nov 06 14:03:50 2008 -0500
@@ -971,7 +971,10 @@
                 ((L'.EAbs ("c", s, (L'.TFun (t, (L'.TFun (un, un), loc)), loc),
                            (L'.EAbs ("v", t, (L'.TFun (un, un), loc),
                                      (L'.EAbs ("_", un, un,
-                                               (L'.EFfiApp ("Basis", "set_cookie", [(L'.ERel 2, loc), e]), loc)),
+                                               (L'.EFfiApp ("Basis", "set_cookie", [(L'.EPrim (Prim.String (!urlPrefix)),
+                                                                                     loc),
+                                                                                    (L'.ERel 2, loc),
+                                                                                    e]), loc)),
                                       loc)), loc)), loc),
                  fm)
             end