Module Base__.Either0

type ('f, 's) t =
| First of 'f
| Second of 's
val compare : f s. ('f -> 'f -> int) -> ('s -> 's -> int) -> ('f, 's) t -> ('f, 's) t -> int
val hash_fold_t : f s. (Base.Hash.state -> 'f -> Base.Hash.state) -> (Base.Hash.state -> 's -> Base.Hash.state) -> Base.Hash.state -> ('f, 's) t -> Base.Hash.state
val t_of_sexp : f s. (Base.Sexp.t -> 'f) -> (Base.Sexp.t -> 's) -> Base.Sexp.t -> ('f, 's) t
val sexp_of_t : f s. ('f -> Base.Sexp.t) -> ('s -> Base.Sexp.t) -> ('f, 's) t -> Base.Sexp.t