summaryrefslogtreecommitdiff
path: root/tests/serializingXml.ur
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>