Mercurial > urweb
comparison lib/ur/basis.urs @ 1280:3d06e0f7a6f3
Initial version of equalKnown working for secret
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 27 Jul 2010 11:42:30 -0400 |
parents | 1e6a4f9d3e4a |
children | 60e19545841b |
comparison
equal
deleted
inserted
replaced
1279:4c367c8f5b2d | 1280:3d06e0f7a6f3 |
---|---|
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 equalKnown : nm :: Name -> t ::: Type -> fs ::: {Type} -> ks ::: {{Unit}} | |
823 -> [[nm] ~ fs] => sql_table ([nm = t] ++ fs) ks -> sql_policy | |
824 | |
822 val also : sql_policy -> sql_policy -> sql_policy | 825 val also : sql_policy -> sql_policy -> sql_policy |
823 | 826 |
824 val debug : string -> transaction unit | 827 val debug : string -> transaction unit |
825 | 828 |
826 val rand : transaction int | 829 val rand : transaction int |