adamc@421: table t1 : {Id : int, A : int, B : string, C : float, D : bool} adamc@421: adamc@421: open Crud.Make(struct adamc@421: val tab = t1 adamc@421: adamc@421: val title = "Crud1" adamc@421: adamc@421: val cols = {A = Crud.int "A", adamc@421: B = Crud.string "B", adamc@421: C = Crud.float "C", adamc@421: D = Crud.bool "D"} adamc@421: end)