blob: bef45a4ff6d8689029c4f040c5ba27baafd3d71d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
cookie c : string
fun other () =
so <- getCookie c;
case so of
None => return <xml>No cookie</xml>
| Some s => return <xml>Cookie: {[s]}</xml>
structure M = struct
fun aux () =
setCookie c "Hi";
so <- getCookie c;
case so of
None => return <xml>No cookie</xml>
| Some s => return <xml><body>Cookie: {[s]}<br/>
<a link={other ()}>Other</a></body></xml>
end
fun main () : transaction page = return <xml><body>
<a link={other ()}>Other</a><br/>
<a link={M.aux ()}>Aux</a><br/>
</body></xml>
|
