table t : {Id : int, Nam : string, Ready : bool}
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 = _
}
}
val fl = Folder.cons [#Nam] [_] !
(Folder.cons [#Ready] [_] !
Folder.nil)
end)