comparison lib/ur/basis.urs @ 1220:526575a9537a

Insert policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 10:57:52 -0400
parents 648e6b087dfb
children 00e628854005
comparison
equal deleted inserted replaced
1219:3224faec752d 1220:526575a9537a
802 802
803 val sendClient : tables ::: {{Type}} -> exps ::: {Type} 803 val sendClient : tables ::: {{Type}} -> exps ::: {Type}
804 -> [tables ~ exps] => sql_query [] tables exps 804 -> [tables ~ exps] => sql_query [] tables exps
805 -> sql_policy 805 -> sql_policy
806 806
807 val mayInsert : fs ::: {Type} -> tables ::: {{Type}} -> [[New] ~ tables]
808 => sql_query [] ([New = fs] ++ tables) []
809 -> sql_policy
810
807 811
808 val debug : string -> transaction unit 812 val debug : string -> transaction unit