Mercurial > urweb

diff lib/basis.urs @ 253:7f6620853c36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Monoized a WHERE clause with a comparison
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 Aug 2008 14:27:01 -0400
parents 7e9bd70ad3ce
children e52243e20858
line wrap: on
line diff
--- a/lib/basis.urs	Sun Aug 31 13:58:47 2008 -0400
+++ b/lib/basis.urs	Sun Aug 31 14:27:01 2008 -0400
@@ -119,9 +119,9 @@
 val sql_le : sql_comparison
 val sql_gt : sql_comparison
 val sql_ge : sql_comparison
-val sql_comparison : sql_comparison
-        -> tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
+val sql_comparison : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type}
         -> t ::: Type
+        -> sql_comparison
         -> sql_exp tables agg exps t -> sql_exp tables agg exps t
         -> sql_exp tables agg exps bool