From bc1aa745b09b3fb38a31379c4bf87e2341948aee Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 26 May 2013 11:05:31 -0400 Subject: fix windows build --- Utility/ThreadScheduler.hs | 4 ++++ 1 file changed, 4 insertions(+) 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,8 +56,10 @@ waitForTermination = do lock <- newEmptyMVar check softwareTermination lock #ifndef __ANDROID__ +#ifndef __WINDOWS__ whenM (queryTerminal stdInput) $ check keyboardSignal lock +#endif #endif takeMVar lock where -- cgit v1.2.3