adamc@650: table t : {Id : int, A : string, B : float} adamc@708: PRIMARY KEY Id adamc@650: adamc@733: structure B = BatchFun.Make(struct adamc@733: val tab = t adamc@733: val title = "BatchG" adamc@733: val cols = {A = BatchFun.string "A", adamc@733: B = BatchFun.float "B"} adamc@733: end) adamc@733: adamc@733: fun main () = return adamc@733: