X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsDllMain.c;h=3e5af6864e3cf5424573c7859fa3a5f4a0cfc71f;hb=d2c874dc74e2d99eda70d83e9b540f54c45c2154;hp=250b63ea68e52889baa9dc9e129421734defddc6;hpb=006a18ea83799c0d4255071a2f8c08d3e9c7d84f;p=ghc-hetmet.git

diff --git a/rts/RtsDllMain.c b/rts/RtsDllMain.c
index 250b63e..3e5af68 100644
--- a/rts/RtsDllMain.c
+++ b/rts/RtsDllMain.c
@@ -30,7 +30,11 @@ DllMain ( HINSTANCE hInstance
    *       you pass to the RTS.
    */
   switch (reason) {
-  case DLL_PROCESS_DETACH: shutdownHaskell();
+  
+  // shutdownHaskelAndExit() is already being called,
+  //	so I don't think we need this. BL 2009/11/17
+ 
+  //case DLL_PROCESS_DETACH: shutdownHaskell();
   }
   return TRUE;
 }