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

static char* args[] = { "ghcDll" };

BOOL
STDCALL
DllMain
   ( HANDLE hModule
   , DWORD reason
   , void* reserved
   )
{
  if (reason == DLL_PROCESS_ATTACH) {
      /* By now, the RTS DLL should have been hoisted in, but we need to start it up. */
      startupHaskell(1, args,NULL);
      return TRUE;
  }
  return TRUE;
}