summaryrefslogtreecommitdiff
path: root/src/mono_shake.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2010-07-27 11:42:30 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2010-07-27 11:42:30 -0400
commit8179b6224c5d4eb3b3fbe48e6acf5d630138c3da (patch)
treeac0a856842e4510fe7e96bf06d222bf7c6004d74 /src/mono_shake.sml
parent5f341ee6866e51c5f528084d601678b91a0d6908 (diff)
Initial version of equalKnown working for secret
Diffstat (limited to 'src/mono_shake.sml')
-rw-r--r--src/mono_shake.sml1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/mono_shake.sml b/src/mono_shake.sml
index 50c4b387..6a5aefae 100644
--- a/src/mono_shake.sml
+++ b/src/mono_shake.sml
@@ -67,6 +67,7 @@ fun shake file =
| PolDelete e1 => e1
| PolUpdate e1 => e1
| PolSequence e1 => e1
+ | PolEqualKnown {table = e1, ...} => e1
in
usedVars st e1
end