diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 13:54:30 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-01-27 13:54:30 +0000 |
| commit | bb7b45dcf16118fb03bf28aea08a168ac6598a33 (patch) | |
| tree | c00d93fb485c63f1a6fb4b1b6de6daaf0cc949d4 /rts/RtsStartup.c | |
| parent | cb7e8821e9c08537bce370b56442c02ba28decd3 (diff) | |
| download | haskell-bb7b45dcf16118fb03bf28aea08a168ac6598a33.tar.gz | |
Don't Terminate the ticker thread (#3748)
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index f0b2598734..8e2eac420d 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -370,7 +370,7 @@ hs_exit_(rtsBool wait_foreign) /* stop the ticker */ stopTimer(); - exitTimer(); + exitTimer(wait_foreign); // set the terminal settings back to what they were #if !defined(mingw32_HOST_OS) |