remove warning from file; add warning in .merlin

This commit is contained in:
Simon Cruanes 2015-09-11 15:12:24 +02:00
parent e30190a7d0
commit 46201b6e85
3 changed files with 5 additions and 3 deletions

View file

@ -35,4 +35,4 @@ PKG bigarray
PKG sequence PKG sequence
PKG hamt PKG hamt
PKG gen PKG gen
FLG -w +a -w -4 -w -44 -w -32 -w -34 FLG -w +a -w -4 -w -44

View file

@ -15,7 +15,6 @@ module type FIXED_ARRAY = sig
val length_log : int val length_log : int
val length : int (* 2 power length_log *) val length : int (* 2 power length_log *)
val get : 'a t -> int -> 'a val get : 'a t -> int -> 'a
val set : 'a t -> int -> 'a -> 'a t
val set : mut:bool -> 'a t -> int -> 'a -> 'a t val set : mut:bool -> 'a t -> int -> 'a -> 'a t
val update : mut:bool -> 'a t -> int -> ('a -> 'a) -> 'a t val update : mut:bool -> 'a t -> int -> ('a -> 'a) -> 'a t
val remove : empty:'a -> 'a t -> int -> 'a t (* put back [empty] there *) val remove : empty:'a -> 'a t -> int -> 'a t (* put back [empty] there *)

View file

@ -21,7 +21,10 @@ type 'a gen = unit -> 'a option
type 'a printer = Format.formatter -> 'a -> unit type 'a printer = Format.formatter -> 'a -> unit
type 'a ktree = unit -> [`Nil | `Node of 'a * 'a ktree list] type 'a ktree = unit -> [`Nil | `Node of 'a * 'a ktree list]
(** {2 Fixed-Size Arrays} *) (** {2 Fixed-Size Arrays}
Mostly an internal implementation detail *)
module type FIXED_ARRAY = sig module type FIXED_ARRAY = sig
type 'a t type 'a t
val create : empty:'a -> 'a t val create : empty:'a -> 'a t