diff options
Diffstat (limited to 'Utility/ThreadScheduler.hs')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index 89d7da2fe..b7ac93fd7 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -15,7 +15,9 @@ import Common import Control.Concurrent import System.Posix.Signals #ifndef __ANDROID__ +#ifndef __WINDOWS__ import System.Posix.Terminal +#else #endif newtype Seconds = Seconds { fromSeconds :: Int } @@ -54,9 +56,11 @@ waitForTermination = do lock <- newEmptyMVar check softwareTermination lock #ifndef __ANDROID__ +#ifndef __WINDOWS__ whenM (queryTerminal stdInput) $ check keyboardSignal lock #endif +#endif takeMVar lock where check sig lock = void $ |