Mercurial > urweb
view demo/more/conference.urs @ 1003:61c30f0742d7
Registering for Conference1
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 20 Oct 2009 11:05:58 -0400 |
parents | 1d456a06ea4e |
children | a87495bcaeec |
line wrap: on
line source
con meta = fn (db :: Type, widget :: Type) => {Show : db -> xbody, Widget : nm :: Name -> xml form [] [nm = widget], WidgetPopulated : nm :: Name -> db -> xml form [] [nm = widget], Parse : widget -> db, Inject : sql_injectable db} val int : meta (int, string) val float : meta (float, string) val string : meta (string, string) val bool : meta (bool, bool) functor Make(M : sig con paper :: {(Type * Type)} constraint [Id, Title] ~ paper val paper : $(map meta paper) con review :: {(Type * Type)} constraint [Paper, User] ~ review val review : $(map meta review) end) : sig val main : unit -> transaction page end