git-annex now builds on Windows (doesn't work)

1 files changed, 3 insertions, 1 deletions

diff --git a/CmdLine.hs b/CmdLine.hs
index b7b8b70f2..8f4c99269 100755
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -17,7 +17,7 @@ import qualified Control.Exception as E
 import qualified Data.Map as M
 import Control.Exception (throw)
 import System.Console.GetOpt
-#ifndef mingw32_HOST_OS
+#ifndef __WINDOWS__
 import System.Posix.Signals
 #endif
 
@@ -118,7 +118,9 @@ tryRun' errnum state cmd (a:as) = do
 {- Actions to perform each time ran. -}
 startup :: Annex Bool
 startup = liftIO $ do
+#ifndef __WINDOWS__
 	void $ installHandler sigINT Default Nothing
+#endif
 	return True
 
 {- Cleanup actions. -}