diff options
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index ae005d852..2b26baeb6 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -55,12 +55,12 @@ waitForTermination :: IO () waitForTermination = do lock <- newEmptyMVar #ifndef __WINDOWS__ - let check sig lock = void $ + let check sig = void $ installHandler sig (CatchOnce $ putMVar lock ()) Nothing - check softwareTermination lock + check softwareTermination #ifndef __ANDROID__ whenM (queryTerminal stdInput) $ - check keyboardSignal lock + check keyboardSignal #endif #endif takeMVar lock |