Mercurial > urweb
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 |