diff options
| author | Pierre-Marie Pédrot | 2019-06-20 08:22:28 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-06-24 11:02:11 +0200 |
| commit | c20eb3a73c4868533bb50555d1979f5b9d821256 (patch) | |
| tree | d32bd39ebb402b5765c367102a7a5daa8e4ed8c3 /kernel/safe_typing.ml | |
| parent | bbec0ea51b4dfef1ddb09a2f876323aa1547f643 (diff) | |
Enforce that opaque entries carry their type.
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 5dac469a40..6cb7a22a15 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -693,7 +693,7 @@ let constant_entry_of_side_effect eff = opaque_entry_body = Future.from_val ((p, Univ.ContextSet.empty), ()); opaque_entry_secctx = None; opaque_entry_feedback = None; - opaque_entry_type = Some cb.const_type; + opaque_entry_type = cb.const_type; opaque_entry_universes = univs; opaque_entry_inline_code = cb.const_inline_code } else |