simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix warnings

Browse source
This commit is contained in:
Simon Cruanes 2025-02-04 23:32:12 -05:00
parent cd2d47f268
commit 21107dc7e7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Iter.ml
View file

@ -1031,9 +1031,14 @@ module Map = struct
let of_iter_ seq = fold (fun m (k, v) -> M.add k v m) M.empty seq let of_iter_ seq = fold (fun m (k, v) -> M.add k v m) M.empty seq
let keys m = from_iter (fun k -> M.iter (fun x _ -> k x) m) let keys m = from_iter (fun k -> M.iter (fun x _ -> k x) m)
let values m = from_iter (fun k -> M.iter (fun _ y -> k y) m) let values m = from_iter (fun k -> M.iter (fun _ y -> k y) m)
[@@@ocaml.warning "-32"]
let of_list l = of_iter_ (of_list l) let of_list l = of_iter_ (of_list l)
let to_list x = to_list (to_iter_ x) let to_list x = to_list (to_iter_ x)
[@@@ocaml.warning "+32"]
include M include M
let to_iter = to_iter_ let to_iter = to_iter_

2
src/dune
View file

@ -3,7 +3,7 @@
(public_name iter) (public_name iter)
(wrapped false) (wrapped false)
(modules Iter IterLabels) (modules Iter IterLabels)
(flags :standard -w +a -warn-error -a+8 -nolabels)) (flags :standard -w +a-4 -warn-error -a+8 -nolabels))
(env (env
(_ (_