Mercurial > urweb

view tests/activeBlock.ur @ 2116:ebfaab689570

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
The 2nd half of proper CSRF protection related to environment variables
author Adam Chlipala <adam@chlipala.net>
date Thu, 12 Feb 2015 15:09:26 -0500
parents 4671afac15af
children
line wrap: on
line source
fun main () : transaction page = return <xml><body>
  <active code={s <- source ""; return <xml>
    <dyn signal={s <- signal s; return (txt s)}/>
    <button onclick={fn _ => set s "Hi!"}/>
  </xml>}/>

  <active code={sleep 1; return <xml>Hi!</xml>}/>

  <active code={spawn (sleep 1; alert "Hi!"); return <xml>Success</xml>}/>
</body></xml>