diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-13 11:13:46 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-13 11:13:46 -0400 |
| commit | 14c2a9e4b84d7344b40c7398c8896338939bfcc1 (patch) | |
| tree | d4a6d210fcc14e26dd25bc5e1ac23fc640eee299 /tests/crud.ur | |
| parent | fd2079464d7b65430af09f2734fa55039006a3e3 (diff) | |
foldTRX2
Diffstat (limited to 'tests/crud.ur')
| -rw-r--r-- | tests/crud.ur | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/crud.ur b/tests/crud.ur index 3837061e..95d2d4b9 100644 --- a/tests/crud.ur +++ b/tests/crud.ur @@ -20,15 +20,12 @@ fun list () = {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>; |