Don't Terminate the ticker thread (#3748)

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

diff --git a/rts/Timer.c b/rts/Timer.c
index 8c178a0..a5d42fb 100644 (file)
--- a/rts/Timer.c
+++ b/rts/Timer.c
@@ -114,9 +114,9 @@ stopTimer(void)
 }
 
 void
-exitTimer(void)
+exitTimer (rtsBool wait)
 {
     if (RtsFlags.MiscFlags.tickInterval != 0) {
-        exitTicker();
+        exitTicker(wait);
     }
 }