diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-14 17:18:59 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-14 17:18:59 -0400 |
commit | ed10a428abc7be47f8cce83db8dc64ac3cb6e84b (patch) | |
tree | b7617266b4a9f49dec81d71cdb6c762172f706d6 /tests/crud.urs | |
parent | 8f64fda22cf9820a07c251acf755e14c836020a8 (diff) |
Reusable column handlers for Crud
Diffstat (limited to 'tests/crud.urs')
-rw-r--r-- | tests/crud.urs | 6 |
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 |