X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FTicker.c;fp=rts%2Fwin32%2FTicker.c;h=9fa40ebe52abf6c42db82a5e96367ccf85d56f05;hb=610de7d17e09318272b7516bd9b97e8b2cbd170c;hp=ab791d8dc7463a4c61358948364ddebfaa71f93b;hpb=edad06244b0a542d6b5c9ce3f3cd72941c5be804;p=ghc-hetmet.git

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index ab791d8..9fa40eb 100644
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -115,6 +115,7 @@ stopTicker(void)
 	    }
 	    if (exitCode != STILL_ACTIVE) {
 		tickThread = INVALID_HANDLE_VALUE;
+		CloseHandle(hStopEvent);
 		return 0;
 	    }
 	    TerminateThread(tickThread, 0);