+
+
+flushConsole :: Handle -> IO ()
+flushConsole h =
+ wantReadableHandle "flushConsole" h $ \ h_ ->
+ throwErrnoIfMinus1Retry_ "flushConsole"
+ (flush_console_fd (fromIntegral (haFD h_)))
+
+foreign import ccall unsafe "consUtils.h flush_input_console__"
+ flush_console_fd :: CInt -> IO CInt