[project @ 2004-10-05 12:51:33 by simonmar]

[ghc-base.git] / GHC / IO.hs

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 29fdc60..2872944 100644 (file)
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -93,7 +93,7 @@ hWaitForInput h msecs = do
                           (fromIntegral msecs) (haIsStream handle_)
                return (r /= 0)
 
-foreign import ccall unsafe "inputReady"
+foreign import ccall safe "inputReady"
   inputReady :: CInt -> CInt -> Bool -> IO CInt
 
 -- ---------------------------------------------------------------------------