annotate demo/crud.urs @ 1971:1e360ea06a09

Add basic year/month/day/hour/minute/second <-> time functions.
author Patrick Hurst <phurst@mit.edu>
date Thu, 05 Dec 2013 11:36:06 -0500
parents bb3fc575cfe7
children
rev   line source
adamc@1002 1 con colMeta = fn (db :: Type, widget :: Type) =>
adamc@421 2 {Nam : string,
adamc@1002 3 Show : db -> xbody,
adamc@1002 4 Widget : nm :: Name -> xml form [] [nm = widget],
adamc@1002 5 WidgetPopulated : nm :: Name -> db -> xml form [] [nm = widget],
adamc@1002 6 Parse : widget -> db,
adamc@1002 7 Inject : sql_injectable db}
adamc@622 8 con colsMeta = fn cols :: {(Type * Type)} => $(map colMeta cols)
adamc@421 9
adamc@421 10 val int : string -> colMeta (int, string)
adamc@421 11 val float : string -> colMeta (float, string)
adamc@421 12 val string : string -> colMeta (string, string)
adamc@421 13 val bool : string -> colMeta (bool, bool)
adamc@421 14
adamc@421 15 functor Make(M : sig
adamc@421 16 con cols :: {(Type * Type)}
adamc@421 17 constraint [Id] ~ cols
adamc@632 18 val fl : folder cols
adamc@632 19
adamc@706 20 table tab : ([Id = int] ++ map fst cols)
adamc@421 21
adamc@421 22 val title : string
adamc@421 23
adamc@421 24 val cols : colsMeta cols
adamc@421 25 end) : sig
adamc@421 26 val main : unit -> transaction page
adamc@421 27 end