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]}