diff options
| author | Pierre-Marie Pédrot | 2019-05-12 23:43:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-14 20:18:42 +0200 |
| commit | 106a7c4a86e4c164a73cbc5a4c14f3c4ff527f30 (patch) | |
| tree | f8976c0248ce07f2eef489a8a10d9aa7921949ba /kernel/modops.ml | |
| parent | 8a6ea9e1e8b7a5686271f92a52f383fc770fc8cb (diff) | |
Reduce the attack surface of Opaqueproof.
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index 4f992d3972..4fdd7ab334 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -608,11 +608,7 @@ let clean_bounded_mod_expr sign = (** {6 Stm machinery } *) let join_constant_body except otab cb = match cb.const_body with - | OpaqueDef o -> - (match Opaqueproof.uuid_opaque otab o with - | Some uuid when not(Future.UUIDSet.mem uuid except) -> - Opaqueproof.join_opaque otab o - | _ -> ()) + | OpaqueDef o -> Opaqueproof.join_opaque ~except otab o | _ -> () let join_structure except otab s = |