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

Title and abstract

author	Adam Chlipala <adamc@hcoop.net>
date	Thu, 22 Oct 2009 11:37:58 -0400
parents	a87495bcaeec
children	1911e84df461

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)
adamc@1007	13
adamc@1007	14 val textarea : string -> meta (string, string)
adamc@1007	15
adamc@1007	16 val allWidgets : ts ::: {(Type * Type)} -> $(map meta ts) -> folder ts
adamc@1007	17 -> xml form [] (map snd ts)

Mercurial > urweb