Partial fix for Trac #4136

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

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 1300c96..ed6eb2b 100644 (file)
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -26,7 +26,7 @@ module GHC.ConsoleHandler
         ) where
 
 {-
-#include "Signals.h"
+#include "rts/Signals.h"
 -}
 
 import Foreign
@@ -39,6 +39,13 @@ import GHC.Conc
 import Control.Concurrent.MVar
 import Data.Typeable
 
+#ifdef mingw32_HOST_OS
+import Data.Maybe
+import GHC.Base
+import GHC.Num
+import GHC.Real
+#endif
+
 data Handler
  = Default
  | Ignore