X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fwin32%2FAsyncIO.c;h=d471ee88793d6e1cfbf03a9c653a83aee76a3078;hp=3f99113b7fd8411851a630e9a5885c13e2923943;hb=c76c69c5b62f1ca4fa52d75b0dfbd37b7eddbb09;hpb=610de7d17e09318272b7516bd9b97e8b2cbd170c

diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c
index 3f99113..d471ee8 100644
--- a/rts/win32/AsyncIO.c
+++ b/rts/win32/AsyncIO.c
@@ -173,6 +173,7 @@ startupAsyncIO()
 void
 shutdownAsyncIO()
 {
+    ShutdownIOManager();
     if (completed_req_event != INVALID_HANDLE_VALUE) {
         CloseHandle(completed_req_event);
 	completed_req_event = INVALID_HANDLE_VALUE;
@@ -185,7 +186,6 @@ shutdownAsyncIO()
         CloseHandle(completed_table_sema);
 	completed_table_sema = NULL;
     }
-    ShutdownIOManager();
 }
 
 /*