Refactor case-merging and identical-alternative optimisations

[ghc-hetmet.git] / rts / win32 / ThrIOManager.c

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index e2310ef..50dd4fb 100644 (file)
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -8,7 +8,7 @@
  * ---------------------------------------------------------------------------*/\r
 \r
 #include "Rts.h"\r
-#include "ThrIOManager.h"\r
+#include "IOManager.h"\r
 #include "Prelude.h"\r
 #include <windows.h>\r
 \r
@@ -34,7 +34,7 @@ getIOManagerEvent (void)
         hRes = CreateEvent ( NULL, // no security attrs\r
                              TRUE, // manual reset\r
                              FALSE, // initial state,\r
-                             "IO Manager Event" );\r
+                             NULL ); // event name: NULL for private events\r
         if (hRes == NULL) {\r
             sysErrorBelch("getIOManagerEvent");\r
             stg_exit(EXIT_FAILURE);\r
@@ -112,13 +112,13 @@ sendIOManagerEvent (HsWord32 event)
 #endif\r
 }    \r
 \r
-#if defined(THREADED_RTS)\r
 void\r
 ioManagerWakeup (void)\r
 {\r
     sendIOManagerEvent(IO_MANAGER_WAKEUP);\r
 }\r
 \r
+#if defined(THREADED_RTS)\r
 void\r
 ioManagerDie (void)\r
 {\r