comparison lib/ur/basis.urs @ 1214:648e6b087dfb

Change query_policy to sendClient; all arguments passed to SQL predicates are variables
author Adam Chlipala <adamc@hcoop.net>
date Thu, 08 Apr 2010 09:57:37 -0400
parents ae3036773768
children 526575a9537a
comparison
equal deleted inserted replaced
1213:e791d93d4616 1214:648e6b087dfb
798 798
799 (** Information flow security *) 799 (** Information flow security *)
800 800
801 type sql_policy 801 type sql_policy
802 802
803 val query_policy : 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 807
808 val debug : string -> transaction unit 808 val debug : string -> transaction unit