summaryrefslogtreecommitdiff
path: root/Utility/ThreadScheduler.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-05-26 11:05:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-05-26 11:05:31 -0400
commitbc1aa745b09b3fb38a31379c4bf87e2341948aee (patch)
tree05e54959c2ddb9ee8b4ca126b3bbab9a45d327ad /Utility/ThreadScheduler.hs
parent1b5334cf779af558e7e4d23b2811781b02d41a9a (diff)
fix windows build
Diffstat (limited to 'Utility/ThreadScheduler.hs')
-rw-r--r--Utility/ThreadScheduler.hs4
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 $