summaryrefslogtreecommitdiff
path: root/tests/crud.urs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/crud.urs')
-rw-r--r--tests/crud.urs6
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/crud.urs b/tests/crud.urs
index 866853d5..0b3a4191 100644
--- a/tests/crud.urs
+++ b/tests/crud.urs
@@ -8,6 +8,12 @@ con colMeta = fn t_formT :: (Type * Type) =>
Inject : sql_injectable t_formT.1}
con colsMeta = fn cols :: {(Type * Type)} => $(mapT2T colMeta cols)
+val default : t ::: Type -> show t -> read t -> sql_injectable t -> string -> colMeta (t, string)
+val int : string -> colMeta (int, string)
+val float : string -> colMeta (float, string)
+val string : string -> colMeta (string, string)
+val bool : string -> colMeta (bool, bool)
+
functor Make(M : sig
con cols :: {(Type * Type)}
constraint [Id] ~ cols