Warning police: Make some prototypes from the RTS known

[haskell-directory.git] / Control / Exception.hs

diff --git a/Control/Exception.hs b/Control/Exception.hs
index ec06bf4..38ead58 100644 (file)
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -518,7 +518,8 @@ uncaughtExceptionHandler = unsafePerformIO (newIORef defaultHandler)
           withCString msg $ \cmsg ->
             errorBelch cfmt cmsg
 
-foreign import ccall unsafe errorBelch :: CString -> CString -> IO ()
+foreign import ccall unsafe "RtsMessages.h errorBelch"
+   errorBelch :: CString -> CString -> IO ()
 
 setUncaughtExceptionHandler :: (Exception -> IO ()) -> IO ()
 setUncaughtExceptionHandler = writeIORef uncaughtExceptionHandler