summaryrefslogtreecommitdiff
path: root/lib/basis.urs
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 14:27:01 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2008-08-31 14:27:01 -0400
commitd43dc372d0dbc90031696d8503c05654e6605f84 (patch)
treef618f19e33e6620c75232ab227f786859d261f15 /lib/basis.urs
parent769dd2e60357a97baee02b9595340a3c0ee79fb8 (diff)
Monoized a WHERE clause with a comparison
Diffstat (limited to 'lib/basis.urs')
-rw-r--r--lib/basis.urs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/basis.urs b/lib/basis.urs
index 7435e716..f53ee1c1 100644
--- a/lib/basis.urs
+++ b/lib/basis.urs
@@ -119,9 +119,9 @@ val sql_lt : sql_comparison
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