inputReady foreign import should be "safe.
(fromIntegral msecs) (haIsStream handle_)
return (r /= 0)
(fromIntegral msecs) (haIsStream handle_)
return (r /= 0)
-foreign import ccall unsafe "inputReady"
+foreign import ccall safe "inputReady"
inputReady :: CInt -> CInt -> Bool -> IO CInt
-- ---------------------------------------------------------------------------
inputReady :: CInt -> CInt -> Bool -> IO CInt
-- ---------------------------------------------------------------------------