diff options
| author | Enrico Tassi | 2019-09-17 10:29:48 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2019-09-17 10:29:48 +0200 |
| commit | c18f04422cb0827994e8d7aecc384a2c448a61c9 (patch) | |
| tree | 341c0e48158cd4a732751c6aed00c9c864dbff52 /library/lib.ml | |
| parent | 3d7de72f45ae2f8bcedbe1db0eb8870e58757b45 (diff) | |
| parent | 73b9794cc21e9fe932d5be9836fe1c53659ba717 (diff) | |
Merge PR #10476: Remove library-specific code for `Import`.
Reviewed-by: gares
Reviewed-by: ppedrot
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/library/lib.ml b/library/lib.ml index 3f51826315..851f086961 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -73,11 +73,8 @@ let classify_segment seg = clean ((id,o)::substl, keepl, anticipl) stk | KeepObject _ -> clean (substl, (id,o)::keepl, anticipl) stk - | ImportObject { export } -> - if export then - clean ((id,o)::substl, keepl, anticipl) stk - else - clean acc stk + | ExportObject _ -> + clean ((id,o)::substl, keepl, anticipl) stk | AtomicObject obj -> begin match classify_object obj with | Dispose -> clean acc stk @@ -615,7 +612,7 @@ let discharge_item ((sp,_ as oname),e) = | Leaf lobj -> begin match lobj with | ModuleObject _ | ModuleTypeObject _ | IncludeObject _ | KeepObject _ - | ImportObject _ -> None + | ExportObject _ -> None | AtomicObject obj -> Option.map (fun o -> (basename sp,o)) (discharge_object (oname,obj)) end |