diff options
author | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 14:59:16 +0100 |
---|---|---|
committer | Pierre Letouzey <pierre.letouzey@inria.fr> | 2014-03-05 15:41:21 +0100 |
commit | adfd437f8ae6aaf893119fa4730edecf067dede7 (patch) | |
tree | a395e5f9e50f5cde1419c1fbdb0870d9efdc09b8 /ide | |
parent | 3080dd5e27ee20ba0b3537c7882e7ad8af414325 (diff) |
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.
Diffstat (limited to 'ide')
-rw-r--r-- | ide/gtk_parsing.ml | 2 | ||||
-rw-r--r-- | ide/preferences.ml | 1 | ||||
-rw-r--r-- | ide/utils/editable_cells.ml | 1 | ||||
-rw-r--r-- | ide/wg_ScriptView.ml | 4 |
4 files changed, 0 insertions, 8 deletions
diff --git a/ide/gtk_parsing.ml b/ide/gtk_parsing.ml index 05b638a94..f3bb2a2ed 100644 --- a/ide/gtk_parsing.ml +++ b/ide/gtk_parsing.ml @@ -6,8 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Ideutils - let underscore = Glib.Utf8.to_unichar "_" ~pos:(ref 0) let arobase = Glib.Utf8.to_unichar "@" ~pos:(ref 0) let prime = Glib.Utf8.to_unichar "'" ~pos:(ref 0) diff --git a/ide/preferences.ml b/ide/preferences.ml index d9a9d0e3a..585dce21f 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -7,7 +7,6 @@ (************************************************************************) open Configwin -open Printf let pref_file = Filename.concat (Minilib.coqide_config_home ()) "coqiderc" let accel_file = Filename.concat (Minilib.coqide_config_home ()) "coqide.keys" diff --git a/ide/utils/editable_cells.ml b/ide/utils/editable_cells.ml index 1ab107c77..33968b8dd 100644 --- a/ide/utils/editable_cells.ml +++ b/ide/utils/editable_cells.ml @@ -1,4 +1,3 @@ -open GTree open Gobject let create l = diff --git a/ide/wg_ScriptView.ml b/ide/wg_ScriptView.ml index de378c074..a1a429789 100644 --- a/ide/wg_ScriptView.ml +++ b/ide/wg_ScriptView.ml @@ -6,10 +6,6 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -open Ideutils -open GText -open Gtk_parsing - type insert_action = { ins_val : string; ins_off : int; |