X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FStable.lhs;h=6bac7d1cb7e5baec5af454d62118e61380cf6314;hb=3d4f3f4b8bc5571d3015816671457c88c0e697c3;hp=0de033d1c639a19ed0bb3975a8f17bc7da86e604;hpb=d98bd1c893b597a0748dc863b70ee186b5991186;p=ghc-base.git

diff --git a/GHC/Stable.lhs b/GHC/Stable.lhs
index 0de033d..6bac7d1 100644
--- a/GHC/Stable.lhs
+++ b/GHC/Stable.lhs
@@ -1,5 +1,6 @@
 \begin{code}
-{-# OPTIONS_GHC -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# OPTIONS_HADDOCK hide #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Stable
@@ -16,17 +17,17 @@
 
 -- #hide
 module GHC.Stable 
-	( StablePtr(..)
-	, newStablePtr		-- :: a -> IO (StablePtr a)    
-	, deRefStablePtr	-- :: StablePtr a -> a
-	, freeStablePtr   	-- :: StablePtr a -> IO ()
-	, castStablePtrToPtr 	-- :: StablePtr a -> Ptr ()
-	, castPtrToStablePtr	-- :: Ptr () -> StablePtr a
+        ( StablePtr(..)
+        , newStablePtr          -- :: a -> IO (StablePtr a)    
+        , deRefStablePtr        -- :: StablePtr a -> a
+        , freeStablePtr         -- :: StablePtr a -> IO ()
+        , castStablePtrToPtr    -- :: StablePtr a -> Ptr ()
+        , castPtrToStablePtr    -- :: Ptr () -> StablePtr a
    ) where
 
 import GHC.Ptr
 import GHC.Base
-import GHC.IOBase
+-- import GHC.IO
 
 -----------------------------------------------------------------------------
 -- Stable Pointers
@@ -100,7 +101,7 @@ castPtrToStablePtr (Ptr a) = StablePtr (unsafeCoerce# a)
 
 instance Eq (StablePtr a) where 
     (StablePtr sp1) == (StablePtr sp2) =
-	case eqStablePtr# sp1 sp2 of
-	   0# -> False
-	   _  -> True
+        case eqStablePtr# sp1 sp2 of
+           0# -> False
+           _  -> True
 \end{code}