Eternal10Seconds-0.1: Eternal_stub.c

#define IN_STG_CODE 0
#include "Rts.h"
#include "Stg.h"
#ifdef __cplusplus
extern "C" {
#endif
 
extern StgClosure Eternal_zdfhszumainzua2Xj_closure;
void hs_main(void)
{
Capability *cap;
HaskellObj ret;
cap = rts_lock();
cap=rts_evalIO(cap,rts_apply(cap,(HaskellObj)runIO_closure,&Eternal_zdfhszumainzua2Xj_closure) ,&ret);
rts_checkSchedStatus("hs_main",cap);
rts_unlock(cap);
}
static void stginit_export_Eternal_zdfhszumainzua2Xj() __attribute__((constructor));
static void stginit_export_Eternal_zdfhszumainzua2Xj()
{getStablePtr((StgPtr) &Eternal_zdfhszumainzua2Xj_closure);}
#ifdef __cplusplus
}
#endif