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

fix windows build

Browse source
This commit is contained in:
Joey Hess 2013-05-26 11:05:31 -04:00
parent fc6535ddd8
commit 1964bf4066
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Utility/ThreadScheduler.hs
View file

@ -15,7 +15,9 @@ import Common
import Control.Concurrent import Control.Concurrent
import System.Posix.Signals import System.Posix.Signals
#ifndef __ANDROID__ #ifndef __ANDROID__
#ifndef __WINDOWS__
import System.Posix.Terminal import System.Posix.Terminal
#else
#endif #endif
newtype Seconds = Seconds { fromSeconds :: Int } newtype Seconds = Seconds { fromSeconds :: Int }
@ -54,8 +56,10 @@ waitForTermination = do
lock <- newEmptyMVar lock <- newEmptyMVar
check softwareTermination lock check softwareTermination lock
#ifndef __ANDROID__ #ifndef __ANDROID__
#ifndef __WINDOWS__
whenM (queryTerminal stdInput) $ whenM (queryTerminal stdInput) $
check keyboardSignal lock check keyboardSignal lock
#endif
#endif #endif
takeMVar lock takeMVar lock
where where