diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-15 16:28:33 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-15 16:29:54 +0200 |
commit | 3b3d98acd58e91c960a2e11cd47ac19b2b34f86b (patch) | |
tree | e41114cd3534dfffea4370b07369e24ffeaa277c /lib | |
parent | a88f5f162272ced5fb2b8ea555756b8fc51b939a (diff) |
Cleaning unpolished commit 0dfd0fb7d7 on basic functions about union type.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/util.ml | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/lib/util.ml b/lib/util.ml index cae996e33..009dfbe1c 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -147,22 +147,10 @@ struct let fold_left f g a = function | Inl y -> f a y | Inr y -> g a y - | _ -> a end let map_union = Union.map -(** Lifting equality onto union types. *) -let equal_union f g x y = match x, y with - | Inl x, Inl y -> f x y - | Inr x, Inr y -> g x y - | _, _ -> false - -let fold_left_union f g a = function - | Inl y -> f a y - | Inr y -> g a y - | _ -> a - type iexn = Exninfo.iexn let iraise = Exninfo.iraise |