S2_to_S3 (base.Base.Applicative.S2_to

Parameters

module X : S2

type ('a, 'd, 'e) t = ( 'a, 'd ) X.t

val return : 'a -> ( 'a, _, _ ) t

val map : ( 'a, 'd, 'e ) t -> f:( 'a -> 'b ) -> ( 'b, 'd, 'e ) t

val both : ( 'a, 'd, 'e ) t -> ( 'b, 'd, 'e ) t -> ( 'a * 'b, 'd, 'e ) t

val (<*>) : ( 'a -> 'b, 'd, 'e ) t -> ( 'a, 'd, 'e ) t -> ( 'b, 'd, 'e ) t

val (<*) : ( 'a, 'd, 'e ) t -> ( unit, 'd, 'e ) t -> ( 'a, 'd, 'e ) t

val (*>) : ( unit, 'd, 'e ) t -> ( 'a, 'd, 'e ) t -> ( 'a, 'd, 'e ) t

val (>>|) : ( 'a, 'd, 'e ) t -> ( 'a -> 'b ) -> ( 'b, 'd, 'e ) t

val apply : ( 'a -> 'b, 'd, 'e ) t -> ( 'a, 'd, 'e ) t -> ( 'b, 'd, 'e ) t

val map2 : 
  ( 'a, 'd, 'e ) t ->
  ( 'b, 'd, 'e ) t ->
  f:( 'a -> 'b -> 'c ) ->
  ( 'c, 'd, 'e ) t

val map3 : 
  ( 'a, 'd, 'e ) t ->
  ( 'b, 'd, 'e ) t ->
  ( 'c, 'd, 'e ) t ->
  f:( 'a -> 'b -> 'c -> 'result ) ->
  ( 'result, 'd, 'e ) t

val all : ( 'a, 'd, 'e ) t list -> ( 'a list, 'd, 'e ) t

val all_unit : ( unit, 'd, 'e ) t list -> ( unit, 'd, 'e ) t

module Applicative_infix : sig ... end