diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-07-27 11:42:30 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-07-27 11:42:30 -0400 |
| commit | 8179b6224c5d4eb3b3fbe48e6acf5d630138c3da (patch) | |
| tree | ac0a856842e4510fe7e96bf06d222bf7c6004d74 /lib | |
| parent | 5f341ee6866e51c5f528084d601678b91a0d6908 (diff) | |
Initial version of equalKnown working for secret
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ur/basis.urs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs index f6141bc7..7b17dd05 100644 --- a/lib/ur/basis.urs +++ b/lib/ur/basis.urs @@ -819,6 +819,9 @@ val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables] => sql_query [] ([Old = fs, New = fs] ++ tables) [] -> 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 |