mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
disable warning 44
This commit is contained in:
parent
ed3bf4ba26
commit
4438505885
3 changed files with 3 additions and 3 deletions
2
.merlin
2
.merlin
|
|
@ -15,4 +15,4 @@ PKG benchmark
|
||||||
PKG threads
|
PKG threads
|
||||||
PKG threads.posix
|
PKG threads.posix
|
||||||
PKG lwt
|
PKG lwt
|
||||||
FLG -w +K,+Y,+X
|
FLG -w +a -w -4 -w -44
|
||||||
|
|
|
||||||
2
_tags
2
_tags
|
|
@ -160,4 +160,4 @@
|
||||||
<tests/*.ml{,i}>: thread
|
<tests/*.ml{,i}>: thread
|
||||||
<threads/*.ml{,i}>: thread
|
<threads/*.ml{,i}>: thread
|
||||||
<sequence>: -traverse
|
<sequence>: -traverse
|
||||||
<{string,core}/**/*.ml>: warn_A, warn(-4)
|
<{string,core}/**/*.ml>: warn_A, warn(-4), warn(-44)
|
||||||
|
|
|
||||||
|
|
@ -552,7 +552,7 @@ module type MONAD = sig
|
||||||
end
|
end
|
||||||
|
|
||||||
module Traverse(M : MONAD) = struct
|
module Traverse(M : MONAD) = struct
|
||||||
open! M
|
open M
|
||||||
|
|
||||||
let map_m f l =
|
let map_m f l =
|
||||||
let rec aux f acc l = match l with
|
let rec aux f acc l = match l with
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue