Permission revocation

[hcoop/domtool2.git] / src / msgTypes.sml

diff --git a/src/msgTypes.sml b/src/msgTypes.sml
index e89fc9d..a5fe2f7 100644 (file)
--- a/src/msgTypes.sml
+++ b/src/msgTypes.sml
@@ -32,6 +32,8 @@ datatype msg =
        | MsgDoFiles
        (* Perform the actions associated with the MsgFiles sent previously. *)
        | MsgGrant of Acl.acl
        | MsgDoFiles
        (* Perform the actions associated with the MsgFiles sent previously. *)
        | MsgGrant of Acl.acl

-       (* Grant a new permission *)
+       (* Grant a permission *)
+       | MsgRevoke of Acl.acl
+       (* Revoke a permission *)

 
 end
 
 end