table t : {Id : int, Nam : string, Ready : bool} PRIMARY KEY Id open Crud.Make(struct val tab = t val title = "Are you ready?" val cols = {Nam = Crud.string "Name", Ready = {Nam = "Ready", Show = (fn b => if b then Ready! else Not ready), Widget = (fn [nm :: Name] => ), WidgetPopulated = (fn [nm :: Name] b => ), Parse = (fn s => case s of "Ready" => True | "Not ready" => False | _ => error Invalid ready/not ready), Inject = _ } } end)