// StartEnd.c
#include <Rts.h>
-extern void __stginit_Adder(void);
-
void HsStart()
{
int argc = 1;
// Initialize Haskell runtime
char** args = argv;
hs_init(&argc, &args);
-
- // Tell Haskell about all root modules
- hs_add_root(__stginit_Adder);
}
void HsEnd()