X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FThrIOManager.c;h=c52928c3a22760fd4209ae9cb204f4f49c2e16d0;hb=304e7fb703e7afddc1ef9be6aab6505e36b63b06;hp=e2310ef9f383f08554fefa57109ba43d3d31eb48;hpb=2f591deaf56c0361334c1fa1081d50bd9fb58883;p=ghc-hetmet.git

diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c
index e2310ef..c52928c 100644
--- a/rts/win32/ThrIOManager.c
+++ b/rts/win32/ThrIOManager.c
@@ -34,7 +34,7 @@ getIOManagerEvent (void)
         hRes = CreateEvent ( NULL, // no security attrs
                              TRUE, // manual reset
                              FALSE, // initial state,
-                             "IO Manager Event" );
+                             NULL ); // event name: NULL for private events
         if (hRes == NULL) {
             sysErrorBelch("getIOManagerEvent");
             stg_exit(EXIT_FAILURE);