diff options
| author | Pierre-Marie Pédrot | 2019-10-03 14:44:41 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-10-03 14:44:41 +0200 |
| commit | 3612ac1f639e361504cf3b2ded5609f5b643dfaa (patch) | |
| tree | f96700b564efb9d7c55d95dc0aebbe5561882b51 /interp/modintern.ml | |
| parent | 92a55bf800a34b5ec283ce0419cde98f3312c9b8 (diff) | |
| parent | cca4665778dd799e5802594761e13b8d53502824 (diff) | |
Merge PR #10727: [library] Move `Declaremods` to `vernac/`
Ack-by: SkySkimmer
Reviewed-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'interp/modintern.ml')
| -rw-r--r-- | interp/modintern.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/interp/modintern.ml b/interp/modintern.ml index 955288244e..ddf5b2d7b1 100644 --- a/interp/modintern.ml +++ b/interp/modintern.ml @@ -12,7 +12,6 @@ open Declarations open Libnames open Constrexpr open Constrintern -open Declaremods type module_internalization_error = | NotAModuleNorModtype of string @@ -21,9 +20,11 @@ type module_internalization_error = exception ModuleInternalizationError of module_internalization_error +type module_kind = Module | ModType | ModAny + let error_not_a_module_loc kind loc qid = let s = string_of_qualid qid in - let e = let open Declaremods in match kind with + let e = match kind with | Module -> Modops.ModuleTypingError (Modops.NotAModule s) | ModType -> Modops.ModuleTypingError (Modops.NotAModuleType s) | ModAny -> ModuleInternalizationError (NotAModuleNorModtype s) @@ -46,7 +47,6 @@ let error_application_to_module_type loc = it is equal to the input kind when this one isn't ModAny. *) let lookup_module_or_modtype kind qid = - let open Declaremods in let loc = qid.CAst.loc in try if kind == ModType then raise Not_found; |