- scheduleThread(
- createIOThread(RtsFlags.GcFlags.initialStkSize,
- rts_apply((StgClosure *)handler,
- rts_mkInt(stg_pending_buf[stg_pending_events]))));
+ scheduleThread(&MainCapability,
+ createIOThread(&MainCapability,
+ RtsFlags.GcFlags.initialStkSize,
+ rts_apply(&MainCapability,
+ (StgClosure *)handler,
+ rts_mkInt(&MainCapability,
+ stg_pending_buf[stg_pending_events]))));