simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 12:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

fix warning

Browse source
This commit is contained in:
Simon Cruanes 2020-09-23 21:34:14 -04:00
parent 264c9b608e
commit e0f14837ac
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/data/CCIntMap.ml
View file

@ -360,7 +360,7 @@ let key = 0 in
let m0 = singleton key 1 in (* a map of [key] to the value 1 *) let m0 = singleton key 1 in (* a map of [key] to the value 1 *)
let m1 = minus m0 m0 in (* a map of [key] to the value 0 *) let m1 = minus m0 m0 in (* a map of [key] to the value 0 *)
let m2 = minus m0 m1 in (* a map of [key] to the value 1 *) let m2 = minus m0 m1 in (* a map of [key] to the value 1 *)
let observed = equal (=) m2 m0 in (* [m0] and [m2] should be equal *) let observed = equal ~eq:(=) m2 m0 in (* [m0] and [m2] should be equal *)
assert_equal true observed assert_equal true observed
*) *)