Mercurial > urweb

diff tests/select.ur @ 372:fe018cbdd41e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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>