From adfd437f8ae6aaf893119fa4730edecf067dede7 Mon Sep 17 00:00:00 2001
From: Pierre Letouzey
Date: Wed, 5 Mar 2014 14:59:16 +0100
Subject: Remove many superfluous 'open' indicated by ocamlc -w +33

 With ocaml 4.01, the 'unused open' warning also checks the mli :-)

 Beware: some open are reported as useless when compiling with camlp5,
 but are necessary for compatibility with camlp4. These open are now
 marked with a comment.
---
 plugins/extraction/common.mli     | 1 -
 plugins/extraction/extraction.mli | 1 -
 plugins/extraction/mlutil.ml      | 1 -
 plugins/extraction/mlutil.mli     | 1 -
 plugins/extraction/modutil.mli    | 3 ---
 5 files changed, 7 deletions(-)

(limited to 'plugins/extraction')

diff --git a/plugins/extraction/common.mli b/plugins/extraction/common.mli
index 0fd3e7bb7b..3058b91b66 100644
--- a/plugins/extraction/common.mli
+++ b/plugins/extraction/common.mli
@@ -9,7 +9,6 @@
 open Names
 open Globnames
 open Miniml
-open Mlutil
 open Pp
 
 (** By default, in module Format, you can do horizontal placing of blocks
diff --git a/plugins/extraction/extraction.mli b/plugins/extraction/extraction.mli
index 89db50e630..8d3cf76fdd 100644
--- a/plugins/extraction/extraction.mli
+++ b/plugins/extraction/extraction.mli
@@ -12,7 +12,6 @@ open Names
 open Term
 open Declarations
 open Environ
-open Libnames
 open Miniml
 
 val extract_constant : env -> constant -> constant_body -> ml_decl
diff --git a/plugins/extraction/mlutil.ml b/plugins/extraction/mlutil.ml
index 1a4cfb45fa..9b72c3e9fd 100644
--- a/plugins/extraction/mlutil.ml
+++ b/plugins/extraction/mlutil.ml
@@ -1363,7 +1363,6 @@ let is_not_strict t =
    restriction for the moment.
 *)
 
-open Declarations
 open Declareops
 
 let inline_test r t =
diff --git a/plugins/extraction/mlutil.mli b/plugins/extraction/mlutil.mli
index f25f0bb89d..ff5dee31f8 100644
--- a/plugins/extraction/mlutil.mli
+++ b/plugins/extraction/mlutil.mli
@@ -7,7 +7,6 @@
 (************************************************************************)
 
 open Names
-open Term
 open Globnames
 open Miniml
 open Table
diff --git a/plugins/extraction/modutil.mli b/plugins/extraction/modutil.mli
index 52805bc87f..42c8b11f3f 100644
--- a/plugins/extraction/modutil.mli
+++ b/plugins/extraction/modutil.mli
@@ -7,11 +7,8 @@
 (************************************************************************)
 
 open Names
-open Declarations
-open Environ
 open Globnames
 open Miniml
-open Mod_subst
 
 (*s Functions upon ML modules. *)
 
-- 
cgit v1.2.3