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. * This file is a part of utop.
*) *)
[@@@warning "-27"]
open CamomileLibraryDefault.Camomile open CamomileLibraryDefault.Camomile
open Lwt_react open Lwt_react
open LTerm_text open LTerm_text

2
src/lib/uTop_complete.ml
View File

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

2
src/lib/uTop_lexer.mll
View File

@ -34,7 +34,7 @@
ofs2 = ofs2; ofs2 = ofs2;
} }
let merge_loc l1 l2 = { let _merge_loc l1 l2 = {
idx1 = l1.idx1; idx1 = l1.idx1;
idx2 = l2.idx2; idx2 = l2.idx2;
ofs1 = l1.ofs1; ofs1 = l1.ofs1;

2
src/lib/uTop_main.ml
View File

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

6
src/lib/uTop_styles.ml
View File

@ -94,7 +94,7 @@ let load () =
(function (function
| Unix.Unix_error(Unix.ENOENT, _, _) -> | Unix.Unix_error(Unix.ENOENT, _, _) ->
return () 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) Lwt_log.error_f "cannot load styles from %S: %s: %s" fn func (Unix.error_message error)
| exn -> Lwt.fail exn) | 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 -> | (Uident id, loc) :: tokens when String_set.mem id !UTop.keywords ->
stylise loc styles.style_keyword; stylise loc styles.style_keyword;
stylise_rec stylise tokens stylise_rec stylise tokens
| (Uident id, loc1) :: (Symbol ".", loc2) :: tokens -> | (Uident _id, loc1) :: (Symbol ".", loc2) :: tokens ->
stylise loc1 styles.style_module; stylise loc1 styles.style_module;
stylise loc2 styles.style_symbol; stylise loc2 styles.style_symbol;
stylise_rec stylise tokens stylise_rec stylise tokens
| (Uident id, loc) :: tokens -> | (Uident _id, loc) :: tokens ->
stylise loc styles.style_ident; stylise loc styles.style_ident;
stylise_rec stylise tokens stylise_rec stylise tokens
| (Constant _, loc) :: tokens -> | (Constant _, loc) :: tokens ->