Hs2lib-0.4.8: Templates/nomain.template-win.c

#include <windows.h>
#include <Rts.h>

extern void __stginit_%name(void);

void %callconv 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 %callconv HsEnd(void)
{
   hs_exit();
}