diff tests/cookie.ur @ 462:21bb5bbba2e9

Setting a cookie
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 11:29:16 -0500
parents f542bc3133dc
children bb27c7efcd90
line wrap: on
line diff
--- a/tests/cookie.ur	Thu Nov 06 10:48:02 2008 -0500
+++ b/tests/cookie.ur	Thu Nov 06 11:29:16 2008 -0500
@@ -2,8 +2,7 @@
 
 fun main () : transaction page =
     setCookie c "Hi";
-    so <- getCookie c;
+    so <- requestHeader "Cookie";
     case so of
         None => return <xml>No cookie</xml>
       | Some s => return <xml>Cookie: {[s]}</xml>
-