Mercurial > urweb

view tests/activeBlock.ur @ 2279:32a407902d3b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewrite LRU cache. Now uses one big hash table and is less buggy.
author Ziv Scully <ziv@mit.edu>
date Wed, 11 Nov 2015 20:01:48 -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>