X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FTopHandler.lhs;h=3c64fc8a0d13b5972cdcc4913599317b2e2d3373;hb=2e317d707ce3512be60ada74a22119cd0a054ca1;hp=686b027db0da4f6d0513944bdf65d82d3b53d647;hpb=d3fb2b3b408c300b47f870f9fb64fcb424c5b537;p=haskell-directory.git

diff --git a/GHC/TopHandler.lhs b/GHC/TopHandler.lhs
index 686b027..3c64fc8 100644
--- a/GHC/TopHandler.lhs
+++ b/GHC/TopHandler.lhs
@@ -127,12 +127,12 @@ safeExit r = unsafeCoerce# (shutdownHaskellAndExit r)
 
 -- NOTE: shutdownHaskellAndExit must be called "safe", because it *can*
 -- re-enter Haskell land through finalizers.
-foreign import ccall "shutdownHaskellAndExit" 
+foreign import ccall "Rts.h shutdownHaskellAndExit"
   shutdownHaskellAndExit :: Int -> IO ()
 
 fastExit :: Int -> IO a
 fastExit r = unsafeCoerce# (stg_exit (fromIntegral r))
 
-foreign import ccall "stg_exit" 
+foreign import ccall "Rts.h stg_exit"
   stg_exit :: CInt -> IO ()
 \end{code}