Mercurial > urweb

view tests/sleep.ur @ 1076:dcf98ae3c48d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow same constructor shorthand for 'view' sig items as for 'table'
author Adam Chlipala <adamc@hcoop.net>
date Tue, 15 Dec 2009 11:11:49 -0500
parents 500e93aa436f
children
line wrap: on
line source
fun annoyer () =
    alert "Hi!";
    sleep 5000;
    annoyer ()

fun main () : transaction page = return <xml><body onload={annoyer ()}/></xml>