X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2Fwin32%2FAsyncIO.c;h=20de8bb4abd73804d18d4b58dd257be31732c649;hp=cd0cf38bab2a176b75051a7e3410eaa29a8cf80f;hb=eb5791fe867f6441d270344298678f45ed4a75e4;hpb=681aad99cb29ce54f72ec2a916fb1aab0fa0fabb

diff --git a/rts/win32/AsyncIO.c b/rts/win32/AsyncIO.c
index cd0cf38..20de8bb 100644
--- a/rts/win32/AsyncIO.c
+++ b/rts/win32/AsyncIO.c
@@ -174,9 +174,9 @@ startupAsyncIO()
 }
 
 void
-shutdownAsyncIO()
+shutdownAsyncIO(rtsBool wait_threads)
 {
-    ShutdownIOManager();
+    ShutdownIOManager(wait_threads);
     if (completed_req_event != INVALID_HANDLE_VALUE) {
         CloseHandle(completed_req_event);
 	completed_req_event = INVALID_HANDLE_VALUE;