diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-06 18:49:38 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-06 18:49:38 -0500 |
| commit | 3af6c283c504e7e85d9e127f64a5eb72abe583ee (patch) | |
| tree | 89c4891d29fe4c10e81ed23ad7747b2a7d115064 /lib/top.urs | |
| parent | 98d669cf07157e275fa796fdd5ad35f3388b0ad1 (diff) | |
Tree demo works
Diffstat (limited to 'lib/top.urs')
| -rw-r--r-- | lib/top.urs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/top.urs b/lib/top.urs index 6653db07..d6315b92 100644 --- a/lib/top.urs +++ b/lib/top.urs @@ -169,3 +169,15 @@ val oneRow : tables ::: {{Type}} -> exps ::: {Type} [[nm] ~ acc] => [nm = $fields] ++ acc) [] tables) + +val eqNullable : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> t ::: Type -> sql_injectable (option t) + -> sql_exp tables agg exps (option t) + -> sql_exp tables agg exps (option t) + -> sql_exp tables agg exps bool + +val eqNullable' : tables ::: {{Type}} -> agg ::: {{Type}} -> exps ::: {Type} + -> t ::: Type -> sql_injectable (option t) + -> sql_exp tables agg exps (option t) + -> option t + -> sql_exp tables agg exps bool |