mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix warning

Browse source
This commit is contained in:
Joey Hess 2013-05-26 16:02:55 -04:00
parent 129be9cf68
commit 62c368dd7c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Utility/ThreadScheduler.hs
View file

@ -55,12 +55,12 @@ waitForTermination :: IO ()
waitForTermination = do waitForTermination = do
lock <- newEmptyMVar lock <- newEmptyMVar
#ifndef __WINDOWS__ #ifndef __WINDOWS__
let check sig lock = void $ let check sig = void $
installHandler sig (CatchOnce $ putMVar lock ()) Nothing installHandler sig (CatchOnce $ putMVar lock ()) Nothing
check softwareTermination lock check softwareTermination
#ifndef __ANDROID__ #ifndef __ANDROID__
whenM (queryTerminal stdInput) $ whenM (queryTerminal stdInput) $
check keyboardSignal lock check keyboardSignal
#endif #endif
#endif #endif
takeMVar lock takeMVar lock