Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1280:3d06e0f7a6f3 1281:60e19545841b
817 817
818 val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables] 818 val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables]
819 => sql_query [] ([Old = fs, New = fs] ++ tables) [] 819 => sql_query [] ([Old = fs, New = fs] ++ tables) []
820 -> sql_policy 820 -> sql_policy
821 821
822 val equalAny : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}}
823 -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy
822 val equalKnown : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}} 824 val equalKnown : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}}
823 -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy 825 -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy
824 826
825 val also : sql_policy -> sql_policy -> sql_policy 827 val also : sql_policy -> sql_policy -> sql_policy
826 828