Module Miou_trace

type event = ..
type event +=
  1. | Spawn of {
    1. uid : int;
    2. parent : int;
    3. runner : int;
    4. kind : [ `Async | `Parallel ];
    }
  2. | Spawn_location of {
    1. uid : int;
    2. filename : string;
    3. line : int;
    }
  3. | Cancel of int
  4. | Cancelled of int
  5. | Await of int
  6. | Resume of int
  7. | Yield of int
  8. | Suspend of {
    1. name : string;
    2. uid : int;
    }
  9. | Continue of {
    1. name : string;
    2. uid : int;
    }
  10. | Attach of {
    1. ruid : int;
    2. puid : int;
    }
  11. | Detach of {
    1. ruid : int;
    2. puid : int;
    }
  12. | Run_begin of int
  13. | Run_end of int
  14. | Run_done of int
  15. | Still_has_children of int
  16. | Not_a_child of {
    1. self : int;
    2. prm : int;
    }
  17. | Resource_leaked of int
  18. | Not_owner of {
    1. ruid : int;
    2. puid : int;
    }
val set_reporter : (event -> unit) -> unit
val trace : event -> unit