X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FConsoleHandler.hs;h=562ef32a675dea35d856c63fa483a825bc24addb;hb=c131671f4b4b2583e7e4a6145360270fe6146e57;hp=1d3c12f3b7eec4a7b191cf0c151ddf87e2e2718f;hpb=956b49e2c59b31eaff9d6e627c68cd440cb17d4b;p=ghc-base.git

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index 1d3c12f..562ef32 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -cpp #-}
+{-# LANGUAGE CPP, ForeignFunctionInterface #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.ConsoleHandler
@@ -42,7 +43,6 @@ import Data.Typeable
 #ifdef mingw32_HOST_OS
 import Data.Maybe
 import GHC.Base
-import GHC.Real
 #endif
 
 data Handler