diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-31 14:27:01 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 14:27:01 -0400 |
| commit | d43dc372d0dbc90031696d8503c05654e6605f84 (patch) | |
| tree | f618f19e33e6620c75232ab227f786859d261f15 /lib/basis.urs | |
| parent | 769dd2e60357a97baee02b9595340a3c0ee79fb8 (diff) | |
Monoized a WHERE clause with a comparison
Diffstat (limited to 'lib/basis.urs')
| -rw-r--r-- | lib/basis.urs | 4 |
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 |