diff options
Diffstat (limited to 'tests/crud1.ur')
| -rw-r--r-- | tests/crud1.ur | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/crud1.ur b/tests/crud1.ur index fb2e4854..a857d3d8 100644 --- a/tests/crud1.ur +++ b/tests/crud1.ur @@ -5,7 +5,7 @@ open Crud.Make(struct A = (int, string), B = (string, string), C = (float, string), - D = (bool, string) + D = (bool, bool) ] val tab = t1 @@ -40,9 +40,9 @@ open Crud.Make(struct D = { Nam = "D", Show = txt _, - Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, - WidgetPopulated = fn (nm :: Name) b => <lform><textbox{nm} value={show _ b}/></lform>, - Parse = readError _, + Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>, + WidgetPopulated = fn (nm :: Name) b => <lform><checkbox{nm} checked={b}/></lform>, + Parse = fn x => x, Inject = sql_bool } } |