annotate demo/more/meta.urs @ 1005:c6e948ec79e9
Saving changes to user list
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Tue, 20 Oct 2009 13:08:42 -0400 |
| parents |
a87495bcaeec |
| children |
d3af9e54c828 |
| rev |
line source |
|
adamc@1004
|
1 con meta = fn (db :: Type, widget :: Type) =>
|
|
adamc@1004
|
2 {Nam : string,
|
|
adamc@1004
|
3 Show : db -> xbody,
|
|
adamc@1004
|
4 Widget : nm :: Name -> xml form [] [nm = widget],
|
|
adamc@1004
|
5 WidgetPopulated : nm :: Name -> db -> xml form [] [nm = widget],
|
|
adamc@1004
|
6 Parse : widget -> db,
|
|
adamc@1004
|
7 Inject : sql_injectable db}
|
|
adamc@1004
|
8
|
|
adamc@1004
|
9 val int : string -> meta (int, string)
|
|
adamc@1004
|
10 val float : string -> meta (float, string)
|
|
adamc@1004
|
11 val string : string -> meta (string, string)
|
|
adamc@1004
|
12 val bool : string -> meta (bool, bool)
|
