Mercurial > urweb
diff tests/select.ur @ 372:fe018cbdd41e
Indenting SELECT sub-clauses properly
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Oct 2008 16:15:17 -0400 |
parents | 71bafe66dbe1 |
children |
line wrap: on
line diff
--- a/tests/select.ur Thu Oct 16 16:00:58 2008 -0400 +++ b/tests/select.ur Thu Oct 16 16:15:17 2008 -0400 @@ -1,13 +1,13 @@ -val handler = fn x => <html><body> +val handler = fn x => <xml><body> You entered: {cdata x.A} -</body></html> +</body></xml> -val main = fn () => <html><body> - <lform> - <lselect{#A}> - <loption value="A">A</loption> - <loption value="B">B</loption> - </lselect> +val main = fn () => <xml><body> + <form> + <select{#A}> + <option value="A">A</option> + <option value="B">B</option> + </select> <submit action={handler}/> - </lform> -</body></html> + </form> +</body></xml>