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

add CCEqual.{always,never}_eq

Browse source 
close #232
This commit is contained in:
Simon Cruanes 2018-11-02 20:17:36 -05:00
parent 26c8eb33bf
commit 113d03225f
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/core/CCEqual.ml
View file

@ -44,6 +44,9 @@ let map f eq x y = eq (f x) (f y)
CCEqual.(list (pair int bool)) l1 l2 = (l1=l2)) CCEqual.(list (pair int bool)) l1 l2 = (l1=l2))
*) *)
let always_eq _ _ = true
let never_eq _ _ = false
module Infix = struct module Infix = struct
let (>|=) x f = map f x let (>|=) x f = map f x
end end