Module `Base.Either`Source

Sourcetype ('f, 's) t =

| First of 'f
| Second of 's

val compare : 
  ('a -> 'a -> int) ->
  ('b -> 'b -> int) ->
  ('a, 'b) Base.Either.t ->
  ('a, 'b) Base.Either.t ->
  int

Source

val hash_fold_t : 
  (Base.Hash.state -> 'a -> Base.Hash.state) ->
  (Base.Hash.state -> 'b -> Base.Hash.state) ->
  Base.Hash.state ->
  ('a, 'b) Base.Either.t ->
  Base.Hash.state

include Sexplib0.Sexpable.S2 with type ('f, 's) t := ('f, 's) Base.Either.t

Source

val t_of_sexp : 
  (Sexplib0.Sexp.t -> 'a) ->
  (Sexplib0.Sexp.t -> 'b) ->
  Sexplib0.Sexp.t ->
  ('a, 'b) Base.Either.t

Source

val sexp_of_t : 
  ('a -> Sexplib0.Sexp.t) ->
  ('b -> Sexplib0.Sexp.t) ->
  ('a, 'b) Base.Either.t ->
  Sexplib0.Sexp.t

Source

val t_sexp_grammar : 
  'f Sexplib0.Sexp_grammar.t ->
  's Sexplib0.Sexp_grammar.t ->
  ('f, 's) Base.Either.t Sexplib0.Sexp_grammar.t

include Base.Invariant.S2 with type ('a, 'b) t := ('a, 'b) Base.Either.t

Sourceval invariant : ('a -> unit) -> ('b -> unit) -> ('a, 'b) Base.Either.t -> unit

Sourceval swap : ('f, 's) Base.Either.t -> ('s, 'f) Base.Either.t

Sourceval value : ('a, 'a) Base.Either.t -> 'a

Source

val iter : 
  ('a, 'b) Base.Either.t ->
  first:('a -> unit) ->
  second:('b -> unit) ->
  unit

Source

val value_map : 
  ('a, 'b) Base.Either.t ->
  first:('a -> 'c) ->
  second:('b -> 'c) ->
  'c

Source

val map : 
  ('a, 'b) Base.Either.t ->
  first:('a -> 'c) ->
  second:('b -> 'd) ->
  ('c, 'd) Base.Either.t

Source

val equal : 
  ('f -> 'f -> bool) ->
  ('s -> 's -> bool) ->
  ('f, 's) Base.Either.t ->
  ('f, 's) Base.Either.t ->
  bool

Source

val local_equal : 
  ('f -> 'f -> bool) ->
  ('s -> 's -> bool) ->
  ('f, 's) Base.Either.t ->
  ('f, 's) Base.Either.t ->
  bool

Sourcemodule type Focused = sig ... end

Source

module First : 
  Base.Either.Focused with type ('a, 'b) t = ('a, 'b) Base.Either.t

Source

module Second : 
  Base.Either.Focused with type ('a, 'b) t = ('b, 'a) Base.Either.t

Sourceval is_first : (_, _) Base.Either.t -> bool

Sourceval is_second : (_, _) Base.Either.t -> bool

Sourceval first : 'f -> ('f, _) Base.Either.t

first and second are First.return and Second.return.

Sourceval second : 's -> (_, 's) Base.Either.t

Module Base.EitherSource

Module `Base.Either`Source