From 62c368dd7c68e7f986bd0ac2a438564831a032e9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 26 May 2013 16:02:55 -0400 Subject: [PATCH] fix warning --- Utility/ThreadScheduler.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index ae005d8524..2b26baeb67 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