From 67ed059e3b57399c7a8231f3180f35357b7aa1c9 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 27 Jul 2010 14:04:09 -0400 Subject: Roll back WHERE checking --- lib/ur/basis.urs | 5 ----- 1 file changed, 5 deletions(-) (limited to 'lib/ur/basis.urs') 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 -- cgit v1.2.3