[project @ 2005-03-15 17:19:09 by ross]

[ghc-base.git] / GHC / ConsoleHandler.hs

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 70128b4..945be3c 100644 (file)
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -1,4 +1,4 @@
-{-# OPTIONS -cpp #-}
+{-# OPTIONS_GHC -cpp #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.ConsoleHandler
@@ -12,9 +12,11 @@
 -- 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 */
        ( Handler(..)
        , installHandler
@@ -25,6 +27,8 @@ module GHC.ConsoleHandler
 #include "Signals.h"
 -}
 
+import Prelude -- necessary to get dependencies right
+
 import Foreign
 import Foreign.C
 
@@ -85,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 */