Mercurial > urweb

view tests/select.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 fe018cbdd41e
children
line wrap: on
line source
val handler = fn x => <xml><body>
        You entered: {cdata x.A}
</body></xml>

val main = fn () => <xml><body>
        <form>
                <select{#A}>
                        <option value="A">A</option>
                        <option value="B">B</option>
                </select>
                <submit action={handler}/>
        </form>
</body></xml>