Mercurial > urweb
diff lib/basis.urs @ 470:7cb418e9714f
Tree demo works
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 06 Nov 2008 18:49:38 -0500 |
parents | b393c2fc80f8 |
children | 4154b4dc62c6 |
line wrap: on
line diff
--- a/lib/basis.urs Thu Nov 06 17:09:53 2008 -0500 +++ b/lib/basis.urs Thu Nov 06 18:49:38 2008 -0500 @@ -197,6 +197,11 @@ -> t ::: Type -> sql_injectable t -> t -> sql_exp tables agg exps t +val sql_is_null : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> t ::: Type + -> sql_exp tables agg exps (option t) + -> sql_exp tables agg exps bool + con sql_unary :: Type -> Type -> Type val sql_not : sql_unary bool bool val sql_unary : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}