#include <Rts.h>

extern void __stginit_%name(void);

void HsStart(void)
{
   int argc = 1;
   char* argv[] = {"ghcDll", NULL}; // argv must end with NULL

   // Initialize Haskell runtime
   char** args = argv;
   hs_init(&argc, &args);

   // Tell Haskell about all root modules
   hs_add_root(__stginit_%name);
}

void HsEnd(void)
{
   hs_exit();
}