From 8179b6224c5d4eb3b3fbe48e6acf5d630138c3da Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Tue, 27 Jul 2010 11:42:30 -0400
Subject: Initial version of equalKnown working for secret

---
 src/mono.sml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/mono.sml')

diff --git a/src/mono.sml b/src/mono.sml
index 9a960cd0..2f5ab117 100644
--- a/src/mono.sml
+++ b/src/mono.sml
@@ -129,6 +129,7 @@ datatype policy =
        | PolDelete of exp
        | PolUpdate of exp
        | PolSequence of exp
+       | PolEqualKnown of {table : exp, field : string}
 
 datatype decl' =
          DDatatype of (string * int * (string * int * typ option) list) list
-- 
cgit v1.2.3