summaryrefslogtreecommitdiff
path: root/Utility/ThreadScheduler.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-26 16:02:55 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-26 16:02:55 -0400
commit4b69aeb7c953f6a781390db8b7c5d419f7790503 (patch)
tree3a0bb4baefdb71b6479dcff08d29fce8b27a16f7 /Utility/ThreadScheduler.hs
parent02a0ac769289940a7f7c344c3e1c794baec0b00d (diff)
fix warning
Diffstat (limited to 'Utility/ThreadScheduler.hs')
-rw-r--r--Utility/ThreadScheduler.hs6
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