X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FConsoleHandler.hs;h=945be3c5eb7f155cfb8e72a14c0aa4b604e19510;hb=5031aad924a8b70b5fc4fe4bb1321c007afcab21;hp=1a713f4092c63e3b918f41e7d5bf465b978c58a1;hpb=5e658a94fe82b696c670ab9423a32694d6f00980;p=ghc-base.git

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 1a713f4..945be3c 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -cpp #-}
+{-# OPTIONS_GHC -cpp #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.ConsoleHandler
@@ -12,8 +12,9 @@
 -- Installing Win32 console handlers.
 -- 
 -----------------------------------------------------------------------------
+
 module GHC.ConsoleHandler
-#ifndef mingw32_TARGET_OS
+#ifndef mingw32_HOST_OS
 	where
 import Prelude -- necessary to get dependencies right
 #else /* whole file */
@@ -88,4 +89,4 @@ installHandler handler =
 
 foreign import ccall unsafe "Signals.h stg_InstallConsoleEvent" 
   rts_installHandler :: CInt -> Ptr (StablePtr (CInt -> IO ())) -> IO CInt
-#endif /* mingw32_TARGET_OS */
+#endif /* mingw32_HOST_OS */