Mercurial > urweb
diff tests/crud.ur @ 332:02d15d81ae9b
foldTRX2
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 13 Sep 2008 11:13:46 -0400 |
parents | eec65c11d3e2 |
children | 9601c717d2f3 |
line wrap: on
line diff
--- a/tests/crud.ur Sat Sep 13 10:44:58 2008 -0400 +++ b/tests/crud.ur Sat Sep 13 11:13:46 2008 -0400 @@ -20,15 +20,12 @@ {acc} <tr> <td>{txt _ fs.T.Id}</td> - {foldTR2 [idT] [colMeta'] [fn _ => xtr] + {foldTRX2 [idT] [colMeta'] [tr] (fn (nm :: Name) (t :: Type) (rest :: {Type}) => [[nm] ~ rest] => - fn v funcs acc => - <tr> + fn v funcs => <tr> <td>{funcs.Show v}</td> - {acc} </tr>) - <tr></tr> [M.cols] (fs.T -- #Id) M.cols} </tr> </body>) <body></body>;