Mercurial > urweb

comparison tests/gform.lac @ 148:15e8b9775539

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gform in proper order
author Adam Chlipala <adamc@hcoop.net>
date Tue, 22 Jul 2008 19:12:25 -0400
parents eb16f2aadbe9
children cc0bc756f66f
comparison
equal deleted inserted replaced
147:eb16f2aadbe9 148:15e8b9775539
21 val page = fn () => <html><body> 21 val page = fn () => <html><body>
22 <lform> 22 <lform>
23 {fold [fn rs :: {Unit} => xml lform [] (stringify rs)] 23 {fold [fn rs :: {Unit} => xml lform [] (stringify rs)]
24 (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} => 24 (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} =>
25 fn frag : xml lform [] (stringify rest) => 25 fn frag : xml lform [] (stringify rest) =>
26 <lform><li>{frag} <textbox{nm}/></li></lform>) 26 <lform><li> <textbox{nm}/></li> {useMore frag}</lform>)
27 <lform></lform> 27 <lform></lform>
28 [rs]} 28 [rs]}
29 29
30 <submit action={handler}/> 30 <submit action={handler}/>
31 </lform> 31 </lform>