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

more windows fixes

Browse source
This commit is contained in:
Joey Hess 2013-05-26 11:12:34 -04:00
parent b80d5494c4
commit 129be9cf68
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Utility/ThreadScheduler.hs
View file

@ -13,12 +13,11 @@ module Utility.ThreadScheduler where
import Common
import Control.Concurrent
#ifndef __WINDOWS__
import System.Posix.Signals
#ifndef __ANDROID__
#ifndef __WINDOWS__
import System.Posix.Terminal
#endif
#else
#endif
newtype Seconds = Seconds { fromSeconds :: Int }
@ -55,17 +54,16 @@ unboundDelay time = do
waitForTermination :: IO ()
waitForTermination = do
lock <- newEmptyMVar
#ifndef __WINDOWS__
let check sig lock = void $
installHandler sig (CatchOnce $ putMVar lock ()) Nothing
check softwareTermination lock
#ifndef __ANDROID__
#ifndef __WINDOWS__
whenM (queryTerminal stdInput) $
check keyboardSignal lock
#endif
#endif
takeMVar lock
where
check sig lock = void $
installHandler sig (CatchOnce $ putMVar lock ()) Nothing
oneSecond :: Microseconds
oneSecond = 1000000