From: simonmar <unknown>
Date: Tue, 5 Oct 2004 12:51:33 +0000 (+0000)
Subject: [project @ 2004-10-05 12:51:33 by simonmar]
X-Git-Tag: nhc98-1-18-release~229
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3e0d5857cc3fd3316b7bfa41b3afe697a11a794d;p=ghc-base.git

[project @ 2004-10-05 12:51:33 by simonmar]
inputReady foreign import should be "safe.
---

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 29fdc60..2872944 100644
--- 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
 
 -- ---------------------------------------------------------------------------