[sledge] Remove NS.Either, use Either now in Stdlib

Summary: In OCaml 4.12, the Stdlib includes Either.

Reviewed By: jvillard

Differential Revision: D27396916

fbshipit-source-id: fc85199ce
master
Josh Berdine 4 years ago committed by Facebook GitHub Bot
parent 6ad7bbe7f1
commit 8f3cda4b1a

@ -153,13 +153,6 @@ include module type of Option.Import
type 'a zero_one_many = Zero | One of 'a | Many type 'a zero_one_many = Zero | One of 'a | Many
type ('a, 'b) zero_one_many2 = Zero2 | One2 of 'a * 'b | Many2 type ('a, 'b) zero_one_many2 = Zero2 | One2 of 'a * 'b | Many2
module Either : sig
type ('a, 'b) t = Left of 'a | Right of 'b
val left : 'a -> ('a, 'b) t
val right : 'a -> ('b, 'a) t
end
module Pair = Containers.Pair module Pair = Containers.Pair
module List = List module List = List
module Array = Array module Array = Array

@ -134,14 +134,6 @@ let fold_map_from_map map x s ~f =
type 'a zero_one_many = Zero | One of 'a | Many type 'a zero_one_many = Zero | One of 'a | Many
type ('a, 'b) zero_one_many2 = Zero2 | One2 of 'a * 'b | Many2 type ('a, 'b) zero_one_many2 = Zero2 | One2 of 'a * 'b | Many2
(* from upcoming Stdlib *)
module Either = struct
type ('a, 'b) t = Left of 'a | Right of 'b
let left v = Left v
let right v = Right v
end
module Pair = Containers.Pair module Pair = Containers.Pair
module Bijection = CCBijection [@@warning "-49"] module Bijection = CCBijection [@@warning "-49"]

Loading…
Cancel
Save