diff options
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 |