diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-26 16:02:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-26 16:02:55 -0400 |
| commit | 4b69aeb7c953f6a781390db8b7c5d419f7790503 (patch) | |
| tree | 3a0bb4baefdb71b6479dcff08d29fce8b27a16f7 /Utility/ThreadScheduler.hs | |
| parent | 02a0ac769289940a7f7c344c3e1c794baec0b00d (diff) | |
fix warning
Diffstat (limited to 'Utility/ThreadScheduler.hs')
| -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 |