summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-09-13 20:04:28 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-09-13 20:04:28 -0400
commitb145e03e5e25cfd59f544312efe3ea93e265a8ce (patch)
tree63178c623e47e45b58631910c533721505226647 /tests
parent291fe704e9a5be0a71cd03418ec5229c99910898 (diff)
Crud gets column headings
Diffstat (limited to 'tests')
-rw-r--r--tests/crud.ur17
-rw-r--r--tests/crud.urs2
-rw-r--r--tests/crud1.ur8
3 files changed, 18 insertions, 9 deletions
diff --git a/tests/crud.ur b/tests/crud.ur
index 7f0fc71c..c596eaad 100644
--- a/tests/crud.ur
+++ b/tests/crud.ur
@@ -1,4 +1,4 @@
-con colMeta' = fn t :: Type => {Show : t -> xbody}
+con colMeta' = fn t :: Type => {Nam : string, Show : t -> xbody}
con colMeta = fn cols :: {Type} => $(Top.mapTT colMeta' cols)
functor Make(M : sig
@@ -22,8 +22,8 @@ fun main () : transaction page =
{foldTRX2 [idT] [colMeta'] [tr]
(fn (nm :: Name) (t :: Type) (rest :: {Type}) =>
[[nm] ~ rest] =>
- fn v funcs => <tr>
- <td>{funcs.Show v}</td>
+ fn v col => <tr>
+ <td>{col.Show v}</td>
</tr>)
[M.cols] (fs.T -- #Id) M.cols}
</tr>
@@ -36,7 +36,16 @@ fun main () : transaction page =
<h1>{cdata M.title}</h1>
<table border={1}>
- <tr> <th>ID</th> </tr>
+ <tr>
+ <th>ID</th>
+ {foldTRX [colMeta'] [tr]
+ (fn (nm :: Name) (t :: Type) (rest :: {Type}) =>
+ [[nm] ~ rest] =>
+ fn col => <tr>
+ <th>{cdata col.Nam}</th>
+ </tr>)
+ [M.cols] M.cols}
+ </tr>
{rows}
</table>
</body></html>
diff --git a/tests/crud.urs b/tests/crud.urs
index 4741af00..988c5458 100644
--- a/tests/crud.urs
+++ b/tests/crud.urs
@@ -1,4 +1,4 @@
-con colMeta' = fn t :: Type => {Show : t -> xbody}
+con colMeta' = fn t :: Type => {Nam : string, Show : t -> xbody}
con colMeta = fn cols :: {Type} => $(Top.mapTT colMeta' cols)
functor Make(M : sig
diff --git a/tests/crud1.ur b/tests/crud1.ur
index 2253d459..f9d67ed8 100644
--- a/tests/crud1.ur
+++ b/tests/crud1.ur
@@ -6,9 +6,9 @@ open Crud.Make(struct
val title = "Crud1"
val cols = {
- A = {Show = txt _},
- B = {Show = txt _},
- C = {Show = txt _},
- D = {Show = txt _}
+ A = {Nam = "A", Show = txt _},
+ B = {Nam = "B", Show = txt _},
+ C = {Nam = "C", Show = txt _},
+ D = {Nam = "D", Show = txt _}
}
end)