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

diff --git a/GHC/ConsoleHandler.hs b/GHC/ConsoleHandler.hs
index abc2458..1d3c12f 100644
--- a/GHC/ConsoleHandler.hs
+++ b/GHC/ConsoleHandler.hs
@@ -147,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