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

EXTFUN(__init_RevStringDll);

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

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,__init_RevStringDll);
      return TRUE;
  } else
  if (reason == DLL_PROCESS_DETACH) { shutdownHaskell(); return TRUE; }
  return TRUE;
}