X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FConsoleHandler.hs;h=223a2bb8c5af5bd8d3130d611a2e24abce147e7b;hb=8bb6db3e726aa1eeb6d512bfb5165f9f9f92210c;hp=e4b1d037027db9c468d001d1ad5aa83c0b113d1d;hpb=6d7493cd5526fbe654aaf4c41784e89d618ddcc1;p=ghc-base.git

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index e4b1d03..223a2bb 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -cpp #-}
+{-# LANGUAGE CPP #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.ConsoleHandler
@@ -26,7 +27,7 @@ module GHC.ConsoleHandler
         ) where
 
 {-
-#include "Signals.h"
+#include "rts/Signals.h"
 -}
 
 import Foreign
@@ -42,8 +43,6 @@ import Data.Typeable
 #ifdef mingw32_HOST_OS
 import Data.Maybe
 import GHC.Base
-import GHC.Num
-import GHC.Real
 #endif
 
 data Handler
@@ -148,7 +147,7 @@ flushConsole h =
                         "handle is not a file descriptor" Nothing Nothing
       Just fd -> do
         throwErrnoIfMinus1Retry_ "flushConsole" $
-           flush_console_fd (fromIntegral (fdFD fd))
+           flush_console_fd (fdFD fd)
 
 foreign import ccall unsafe "consUtils.h flush_input_console__"
         flush_console_fd :: CInt -> IO CInt