diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-04 20:05:50 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-04 20:05:50 -0400 |
| commit | 9bd2b016ef2eedf73d2d00d22c009b0d3a8558d3 (patch) | |
| tree | 8794d17ecb26e681bc92bc7b712ea9f498ce609c /tests/crud1.ur | |
| parent | 8f22c3384c8b715c97fa781fa388ef9090d13fb6 (diff) | |
Expand cases where expression wildcards are allowed
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 10722b55..cca71aab 100644 --- a/tests/crud1.ur +++ b/tests/crud1.ur @@ -12,7 +12,7 @@ open Crud.Make(struct Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, Parse = readError _, - Inject = sql_int + Inject = _ }, B = { Nam = "B", @@ -20,7 +20,7 @@ open Crud.Make(struct Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) s => <lform><textbox{nm} value={s}/></lform>, Parse = readError _, - Inject = sql_string + Inject = _ }, C = { Nam = "C", @@ -28,7 +28,7 @@ open Crud.Make(struct Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, Parse = readError _, - Inject = sql_float + Inject = _ }, D = { Nam = "D", @@ -36,7 +36,7 @@ open Crud.Make(struct 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 + Inject = _ } } end) |