blob: 34eb34368c80f5568f5aaa7e0c19c9b509b25dbd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
fun alerts n =
if n <= 0 then
return ()
else
(alert ("Alert #" ^ show n);
alerts (n - 1))
cookie uhoh : serialized xbody
fun main () : transaction page =
setCookie uhoh {Value = serialize <xml><active code={alerts 3; return <xml>Yay!</xml>}/></xml>,
Expires = None,
Secure = False};
return <xml></xml>
|
