Mercurial > urweb
comparison demo/more/meta.urs @ 1004:a87495bcaeec
Start of user management
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 20 Oct 2009 12:48:53 -0400 |
| parents | |
| children | d3af9e54c828 |
comparison
equal
deleted
inserted
replaced
| 1003:61c30f0742d7 | 1004:a87495bcaeec |
|---|---|
| 1 con meta = fn (db :: Type, widget :: Type) => | |
| 2 {Nam : string, | |
| 3 Show : db -> xbody, | |
| 4 Widget : nm :: Name -> xml form [] [nm = widget], | |
| 5 WidgetPopulated : nm :: Name -> db -> xml form [] [nm = widget], | |
| 6 Parse : widget -> db, | |
| 7 Inject : sql_injectable db} | |
| 8 | |
| 9 val int : string -> meta (int, string) | |
| 10 val float : string -> meta (float, string) | |
| 11 val string : string -> meta (string, string) | |
| 12 val bool : string -> meta (bool, bool) |