blob: 3673426055c40ba50a2ce59015408000e80dc19a (
plain)
1
2
3
4
5
6
7
8
|
cookie c : string
fun main () : transaction page =
setCookie c "Hi";
so <- requestHeader "Cookie";
case so of
None => return <xml>No cookie</xml>
| Some s => return <xml>Cookie: {[s]}</xml>
|