Mercurial > urweb
diff 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 |
line wrap: on
line diff
--- a/tests/gform.lac Tue Jul 22 18:46:04 2008 -0400 +++ b/tests/gform.lac Tue Jul 22 19:12:25 2008 -0400 @@ -23,7 +23,7 @@ {fold [fn rs :: {Unit} => xml lform [] (stringify rs)] (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} => fn frag : xml lform [] (stringify rest) => - <lform><li>{frag} <textbox{nm}/></li></lform>) + <lform><li> <textbox{nm}/></li> {useMore frag}</lform>) <lform></lform> [rs]}