Mercurial > urweb

view tests/ffieff.ur @ 1924:b44138e6a3bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add activeHead tag. activeHead is similar to active but produces xhead instead of xbody
author Sergey Mironov <grrwlf@gmail.com>
date Fri, 06 Dec 2013 13:59:39 +0400
parents df6a040f5389
children
line wrap: on
line source
open Ffi_eff

fun main () : transaction page = return <xml><body>
  <button value="shout" onclick={fn _ => shout "Hi!"; shout "Bye!"}/>
  <button value="sneakyShout" onclick={fn _ => let val x = sneakyShout "Whoa" in return () end}/>
</body></xml>