diff options
| author | Pierre-Marie Pédrot | 2020-01-30 09:36:08 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-01-30 09:39:26 +0100 |
| commit | 9316e4227311720e33e0b002b57626312d7d1245 (patch) | |
| tree | 1ffc81bf147133908103b777fd7982dee0666f7c /kernel/safe_typing.mli | |
| parent | c5b2a4c5e3deacf30d53fac9dbf08b6cca759f2c (diff) | |
Do not rely on Libobject for the current environment in extraction.
Instead, we export in Safe_typing the current module declaration.
Diffstat (limited to 'kernel/safe_typing.mli')
| -rw-r--r-- | kernel/safe_typing.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/kernel/safe_typing.mli b/kernel/safe_typing.mli index 92bbd264fa..e6f2fc4a5d 100644 --- a/kernel/safe_typing.mli +++ b/kernel/safe_typing.mli @@ -37,6 +37,8 @@ val env_of_safe_env : safe_environment -> Environ.env val sections_of_safe_env : safe_environment -> section_data Section.t option +val structure_body_of_safe_env : safe_environment -> Declarations.structure_body + (** The safe_environment state monad *) type safe_transformer0 = safe_environment -> safe_environment |