From fbded5a307d063a150cfb0b2b1dd1118142f99e5 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 24 Jul 2008 10:15:49 -0400 Subject: Full gform test works --- tests/gform.lac | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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) => - 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)) => +

{cdata x.nm}

{f (x -- nm)}) + (fn x => ) + [M.rs] x} val page = fn () => -- cgit v1.2.3