Mercurial > urweb

view tests/id.ur @ 2043:e762c96fffb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small tweak to ordering of unification rules, to support better record matching
author Adam Chlipala <adam@chlipala.net>
date Tue, 29 Jul 2014 14:38:50 -0400
parents 6f2f74cc4ead
children
line wrap: on
line source
fun main () : transaction page =
    id1 <- fresh;
    id2 <- fresh;
    x <- source <xml/>;
    return <xml><body>
      <span id={id1}>Hi!</span>
      <span id={id2}>Ho!</span>
      <dyn signal={signal x}/>
      <button value="Set" onclick={id <- fresh; set x <xml><span id={id}>He!</span></xml>}/>
      <button value="Show" onclick={x <- get x; alert (show x)}/>
    </body></xml>