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