Ur/Web: demo/more/meta.urs annotate

Start of user management

author	Adam Chlipala <adamc@hcoop.net>
date	Tue, 20 Oct 2009 12:48:53 -0400
parents
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)

Mercurial > urweb