diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-11 18:32:41 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-11 18:32:41 -0400 |
| commit | 42944f71120301ea2dff0e93f3a0f2e7df4a44b0 (patch) | |
| tree | 527e676197eaa7c1c4377678e5e6d9731fb11a98 /tests/crud.urs | |
| parent | 48b9d4dae3d1ca6ff39e71571a6db3a43497c9f9 (diff) | |
Crud list works
Diffstat (limited to 'tests/crud.urs')
| -rw-r--r-- | tests/crud.urs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/crud.urs b/tests/crud.urs index 5f2ae695..c021bea3 100644 --- a/tests/crud.urs +++ b/tests/crud.urs @@ -1,3 +1,5 @@ +con colMeta = fn cols :: {Type} => $(mapTT (fn t => {Show : t -> xbody}) cols) + functor Make(M : sig con cols :: {Type} constraint [Id] ~ cols @@ -5,7 +7,7 @@ functor Make(M : sig val title : string - val cols : $(mapTT (fn t => {Show : t -> xbody}) cols) + val cols : colMeta cols end) : sig val main : unit -> transaction page end |