Mercurial > urweb

view tests/headDyn.ur @ 1888:5f478ecf65e4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Identify more local definitions as functions that should be lifted to the top level, which has synergistic effects on inlining later
author Adam Chlipala <adam@chlipala.net>
date Tue, 05 Nov 2013 11:58:52 -0500
parents 6817ddd6cf1f
children
line wrap: on
line source
fun main () : transaction page =
    x <- source <xml/>;
    return <xml>
      <head>
        <title>Test</title>
      </head>
      <body onload={set x <xml>boo</xml>}>
        <dyn signal={signal x}/>
      </body>
    </xml>

fun main2 () : transaction page =
    return <xml>
      <head>
        <title>Test</title>
      </head>
      <body>
        <button onclick={alert "Hi"}/>
      </body>
    </xml>