Mercurial > urweb
diff demo/more/orm.urs @ 987:6dd122f10c0c
Better location calculation for record unification error messages; infer kind arguments to module-projected variables
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Mon, 05 Oct 2009 16:36:38 -0400 |
| parents | |
| children | d923b47e483d |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/demo/more/orm.urs Mon Oct 05 16:36:38 2009 -0400 @@ -0,0 +1,19 @@ +con link :: Type -> Type + +con meta = fn col :: Type => { + Link : link col, + Inj : sql_injectable col + } + +functor Table(M : sig + con cols :: {Type} + val cols : $(map meta cols) + constraint [Id] ~ cols + val folder : folder cols + end) : sig + type id + val inj : sql_injectable id + val id : meta id + + val create : $M.cols -> transaction id +end