X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FStable.lhs;h=0de033d1c639a19ed0bb3975a8f17bc7da86e604;hb=b1f2e321ceac8fcfc1f0756e2f5c2585fbd00b3c;hp=8ded1e470897dff179403edb6cfaf6da46c7efa1;hpb=96327b0696bc28551fbdb303506c52b9ee70c95c;p=ghc-base.git

diff --git a/GHC/Stable.lhs b/GHC/Stable.lhs
index 8ded1e4..0de033d 100644
--- a/GHC/Stable.lhs
+++ b/GHC/Stable.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Stable
@@ -14,6 +14,7 @@
 --
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Stable 
 	( StablePtr(..)
 	, newStablePtr		-- :: a -> IO (StablePtr a)    
@@ -70,7 +71,7 @@ deRefStablePtr (StablePtr sp) = IO $ \s -> deRefStablePtr# sp s
 -- it may be 'Foreign.Ptr.nullPtr').  Nevertheless, the call
 -- to 'castStablePtrToPtr' is guaranteed not to diverge.
 --
-foreign import ccall unsafe freeStablePtr :: StablePtr a -> IO ()
+foreign import ccall unsafe "hs_free_stable_ptr" freeStablePtr :: StablePtr a -> IO ()
 
 -- |
 -- Coerce a stable pointer to an address. No guarantees are made about