Mercurial > urweb

diff lib/ur/basis.urs @ 1223:62af4cacd191

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update policies
author Adam Chlipala <adamc@hcoop.net>
date Sun, 11 Apr 2010 13:11:25 -0400
parents 00e628854005
children a2cd6664f57f
line wrap: on
line diff
--- a/lib/ur/basis.urs	Sun Apr 11 12:45:15 2010 -0400
+++ b/lib/ur/basis.urs	Sun Apr 11 13:11:25 2010 -0400
@@ -812,5 +812,9 @@
                 => sql_query [] ([Old = fs] ++ tables) []
                 -> sql_policy
 
+val mayUpdate : fs ::: {Type} -> tables ::: {{Type}} -> [[Old, New] ~ tables]
+                => sql_query [] ([Old = fs, New = fs] ++ tables) []
+                -> sql_policy
+
 
 val debug : string -> transaction unit