diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-07-27 14:04:09 -0400 |
| commit | 67ed059e3b57399c7a8231f3180f35357b7aa1c9 (patch) | |
| tree | 7853299e0060cd6c6eea28a26aa4ee33b1b93c21 /lib/ur/basis.urs | |
| parent | a5d7c214f42af261d900af8a7ac042b807c2abe2 (diff) | |
Roll back WHERE checking
Diffstat (limited to 'lib/ur/basis.urs')
| -rw-r--r-- | lib/ur/basis.urs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index 8bc2b6ea..f6141bc7 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -819,11 +819,6 @@ val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables] => sql_query [] ([Old = fs, New = fs] ++ tables) [] -> sql_policy -val equalAny : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}} - -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy -val equalKnown : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}} - -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy - val also : sql_policy -> sql_policy -> sql_policy val debug : string -> transaction unit |