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