X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FMem%2FStableName.hs;h=f52be1d95604d8fdba4220a1d4724cb21fbc5931;hb=9fa9bc17072a58c0bae2cce4764d38677e96ac29;hp=0544ea94ac8fc5e1474cf034aea59969b65bba15;hpb=0bd9c2127306fe60f3f34f5ac87a37b074e877a6;p=ghc-base.git

diff --git a/System/Mem/StableName.hs b/System/Mem/StableName.hs
index 0544ea9..f52be1d 100644
--- a/System/Mem/StableName.hs
+++ b/System/Mem/StableName.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  System.Mem.StableName
 -- Copyright   :  (c) The University of Glasgow 2001
 -- License     :  BSD-style (see the file libraries/core/LICENSE)
@@ -8,7 +8,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- $Id: StableName.hs,v 1.2 2001/09/13 11:37:08 simonmar Exp $
+-- $Id: StableName.hs,v 1.4 2002/04/24 16:31:45 simonmar Exp $
 --
 -- Giving an object a stable (GC-invariant) name.
 --
@@ -25,9 +25,8 @@ import Prelude
 import Data.Dynamic
 
 #ifdef __GLASGOW_HASKELL__
-import GHC.Base		( Int(..) )
 import GHC.IOBase	( IO(..) )
-import GHC.Prim		( StableName#, makeStableName#
+import GHC.Base		( Int(..), StableName#, makeStableName#
 			, eqStableName#, stableNameToInt# )
 
 -----------------------------------------------------------------------------