Mercurial > urweb
comparison tests/gform.lac @ 148:15e8b9775539
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> |