diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 12:08:41 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 12:08:41 -0500 |
| commit | 9f6397d0f801f6e020aa6123f14ddc44e11deee7 (patch) | |
| tree | ab9e9c68fbb15a38d5a42e489dbc1ecdfd886525 /src/monoize.sml | |
| parent | bfad3d26b4471c93b92d41c894e25919fd7bf953 (diff) | |
Reading cookies works
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 64522a18..b8c3a6a9 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -955,7 +955,9 @@ fun monoExp (env, st, fm) (all as (e, loc)) = in ((L'.EAbs ("c", s, (L'.TFun (un, s), loc), (L'.EAbs ("_", un, s, - (L'.EPrim (Prim.String "Cookie!"), loc)), loc)), loc), + (L'.EUnurlify ((L'.EFfiApp ("Basis", "get_cookie", [(L'.ERel 1, loc)]), loc), + t), + loc)), loc)), loc), fm) end |