package async

  1. Overview
  2. Docs
Legend:
Library
Module
Module type
Parameter
Class
Class type

Idiomatic usage of Match is:

let job_or_event = ... in
let open Job_or_event.Match in
let K k = kind job_or_event in
match k, project k job_or_event with
| Event , event -> ... use event ...
| Job   , job   -> ... use job ...

Idiomatic usage of Match is:

let job_or_event = ... in
let open Job_or_event.Match in
let K k = kind job_or_event in
match k, project k job_or_event with
| Event , event -> ... use event ...
| Job   , job   -> ... use job ...
type _ kind =
  1. | Event : Async_kernel__.Types.Event.t kind
  2. | Job : (Async_kernel__.Types.Execution_context.t, Obj.t -> unit, Obj.t) Core_kernel.Pool.Slots.t3 Core_kernel.Pool.Pointer.t kind
type packed =
  1. | K : _ kind -> packed
val kind : Async_kernel__.Types.Job_or_event.t -> packed
val project : 'a kind -> Async_kernel__.Types.Job_or_event.t -> 'a