diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-24 10:15:49 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-24 10:15:49 -0400 |
| commit | fbded5a307d063a150cfb0b2b1dd1118142f99e5 (patch) | |
| tree | 5e543de69e3e5cf5029f1aee75921b1c3799c6b0 /tests/gform.lac | |
| parent | 9e860c86c7d9c763deb9d51490a6766d9c72ed25 (diff) | |
Full gform test works
Diffstat (limited to 'tests/gform.lac')
| -rw-r--r-- | tests/gform.lac | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/gform.lac b/tests/gform.lac index f9b028fa..e1b194c0 100644 --- a/tests/gform.lac +++ b/tests/gform.lac @@ -15,7 +15,13 @@ functor F (M : S) : S' where con rs = M.rs = struct con rs = M.rs val handler = fn x : $(stringify M.rs) => <html><body> - OK. + {fold [fn rs :: {Unit} => $(stringify rs) -> xml body [] []] + (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} => + fn f : $(stringify rest) -> xml body [] [] => + fn x : $(stringify ([nm] ++ rest)) => + <body><li> {cdata x.nm}</li> {f (x -- nm)}</body>) + (fn x => <body></body>) + [M.rs] x} </body></html> val page = fn () => <html><body> |