haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix or suppress some warnings in dune dev build mode

This commit is contained in:
Anil Madhavapeddy 2019-01-14 18:57:08 +00:00 committed by Jérémie Dimino
parent 5f3eb3134d
commit 3212401775
5 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop.ml
View File

@ -7,6 +7,8 @@
* This file is a part of utop.
*)
[@@@warning "-27"]
open CamomileLibraryDefault.Camomile
open Lwt_react
open LTerm_text

2
src/lib/uTop_complete.ml
View File

@ -7,6 +7,8 @@
* This file is a part of utop.
*)
[@@@warning "-9-27-32"]
open Types
open LTerm_read_line
open UTop_token

2
src/lib/uTop_lexer.mll
View File

@ -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;

2
src/lib/uTop_main.ml
View File

@ -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

6
src/lib/uTop_styles.ml
View File

@ -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 ->