Mercurial > urweb
diff demo/more/orm.urs @ 991:b132f8620a66
Initial Orm1 demo
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 06 Oct 2009 10:34:27 -0400 |
parents | 46803e668a89 |
children | bb3fc575cfe7 |
line wrap: on
line diff
--- a/demo/more/orm.urs Tue Oct 06 10:15:26 2009 -0400 +++ b/demo/more/orm.urs Tue Oct 06 10:34:27 2009 -0400 @@ -6,6 +6,8 @@ Inj : sql_injectable col_parent.1 } +val local : t :: Type -> sql_injectable t -> meta (t, unit) + functor Table(M : sig con cols :: {(Type * Type)} val cols : $(map meta cols)