fix or suppress some warnings in dune dev build mode

ocaml-community · Jan 15, 2019 · 3212401 · 3212401
1 parent 5f3eb31
commit 3212401
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 4 deletions.
diff --git a/src/lib/uTop.ml b/src/lib/uTop.ml
@@ -7,6 +7,8 @@
  * This file is a part of utop.
  *)
 
+[@@@warning "-27"]
+
 open CamomileLibraryDefault.Camomile
 open Lwt_react
 open LTerm_text

diff --git a/src/lib/uTop_complete.ml b/src/lib/uTop_complete.ml
@@ -7,6 +7,8 @@
  * This file is a part of utop.
  *)
 
+[@@@warning "-9-27-32"]
+
 open Types
 open LTerm_read_line
 open UTop_token

diff --git a/src/lib/uTop_lexer.mll b/src/lib/uTop_lexer.mll
@@ -34,7 +34,7 @@
       ofs2 = ofs2;
     }
 
-  let merge_loc l1 l2 = {
+  let _merge_loc l1 l2 = {
     idx1 = l1.idx1;
     idx2 = l2.idx2;
     ofs1 = l1.ofs1;

diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml
@@ -7,6 +7,8 @@
  * This file is a part of utop.
  *)
 
+[@@@warning "-7-9-27-32-33"]
+
 open CamomileLibraryDefault.Camomile
 open Lwt_react
 open LTerm_dlist

diff --git a/src/lib/uTop_styles.ml b/src/lib/uTop_styles.ml
@@ -94,7 +94,7 @@ let load () =
     (function
     | Unix.Unix_error(Unix.ENOENT, _, _) ->
         return ()
-    | Unix.Unix_error (error, func, arg) ->
+    | Unix.Unix_error (error, func, _arg) ->
         Lwt_log.error_f "cannot load styles from %S: %s: %s" fn func (Unix.error_message error)
     | exn -> Lwt.fail exn)
 
@@ -130,11 +130,11 @@ let rec stylise_rec stylise tokens =
     | (Uident id, loc) :: tokens when String_set.mem id !UTop.keywords ->
         stylise loc styles.style_keyword;
         stylise_rec stylise tokens
-    | (Uident id, loc1) :: (Symbol ".", loc2) :: tokens ->
+    | (Uident _id, loc1) :: (Symbol ".", loc2) :: tokens ->
         stylise loc1 styles.style_module;
         stylise loc2 styles.style_symbol;
         stylise_rec stylise tokens
-    | (Uident id, loc) :: tokens ->
+    | (Uident _id, loc) :: tokens ->
         stylise loc styles.style_ident;
         stylise_rec stylise tokens
     | (Constant _, loc) :: tokens ->