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

annotations in CCEqual, for optimization

Browse source
This commit is contained in:
Simon Cruanes 2017-04-19 22:08:56 +02:00
parent 8460b01f2f
commit 93568949e6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/CCEqual.ml
View file

@ -7,10 +7,10 @@ type 'a t = 'a -> 'a -> bool
let poly = (=) let poly = (=)
let int = (=) let int : int t = (=)
let string = (=) let string : string t = (=)
let bool = (=) let bool : bool t = (=)
let float = (=) let float : float t = (=)
let rec list f l1 l2 = match l1, l2 with let rec list f l1 l2 = match l1, l2 with
| [], [] -> true | [], [] -> true