comparison lib/ur/basis.urs @ 1221:00e628854005

Delete policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 12:38:21 -0400
parents 526575a9537a
children 62af4cacd191
comparison
equal deleted inserted replaced
1220:526575a9537a 1221:00e628854005
806 806
807 val mayInsert : fs ::: {Type} -> tables ::: {{Type}} -> [[New] ~ tables] 807 val mayInsert : fs ::: {Type} -> tables ::: {{Type}} -> [[New] ~ tables]
808 => sql_query [] ([New = fs] ++ tables) [] 808 => sql_query [] ([New = fs] ++ tables) []
809 -> sql_policy 809 -> sql_policy
810 810
811 val mayDelete : fs ::: {Type} -> tables ::: {{Type}} -> [[Old] ~ tables]
812 => sql_query [] ([Old = fs] ++ tables) []
813 -> sql_policy
814
811 815
812 val debug : string -> transaction unit 816 val debug : string -> transaction unit