Ur/Web: tests/both.ur annotate

Eta-expand bodies of transaction functions in Monoization, to enable later optimization

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 31 Dec 2009 18:07:53 -0500
parents	a5eb8f87bc17
children

rev	line source
adamc@1046	1 fun main () : transaction page = return <xml>
adamc@1046	2 <body>
adamc@1046	3 <form>
adamc@1046	4 <textbox{#Text}/><submit action={submit}/>
adamc@1046	5 </form>
adamc@1046	6 </body>
adamc@1046	7 </xml>
adamc@1046	8
adamc@1046	9 and submit r = return <xml/>

Mercurial > urweb