FIX #1177, partially at least.

[ghc-hetmet.git] / rts / RtsStartup.c

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 8be4044..4f5b1c7 100644 (file)
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -494,7 +494,7 @@ hs_exit_(rtsBool wait_foreign)
 #endif
 
 #if defined(mingw32_HOST_OS) && !defined(THREADED_RTS)
 #endif
 
 #if defined(mingw32_HOST_OS) && !defined(THREADED_RTS)

-    shutdownAsyncIO();
+    shutdownAsyncIO(wait_foreign);

 #endif
 
     /* free hash table storage */
 #endif
 
     /* free hash table storage */