Mercurial > urweb

diff lib/ur/basis.urs @ 1281:60e19545841b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
equalAny policies
author Adam Chlipala <adam@chlipala.net>
date Tue, 27 Jul 2010 12:12:08 -0400
parents 3d06e0f7a6f3
children a9a500d22ebc
line wrap: on
line diff
--- a/lib/ur/basis.urs	Tue Jul 27 11:42:30 2010 -0400
+++ b/lib/ur/basis.urs	Tue Jul 27 12:12:08 2010 -0400
@@ -819,6 +819,8 @@
                 => 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