-{-# OPTIONS -cpp #-}
+{-# OPTIONS_GHC -cpp #-}
-----------------------------------------------------------------------------
-- |
-- Module : GHC.ConsoleHandler
--
-----------------------------------------------------------------------------
module GHC.ConsoleHandler
-#ifndef mingw32_TARGET_OS
+#ifndef mingw32_HOST_OS
where
+import Prelude -- necessary to get dependencies right
#else /* whole file */
( Handler(..)
, installHandler
#include "Signals.h"
-}
+import Prelude -- necessary to get dependencies right
+
import Foreign
import Foreign.C
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 */