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

diff --git a/System/Mem/StableName.hs b/System/Mem/StableName.hs
index 12d2df1..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.1 2001/06/28 14:15:04 simonmar Exp $
+-- $Id: StableName.hs,v 1.4 2002/04/24 16:31:45 simonmar Exp $
 --
 -- Giving an object a stable (GC-invariant) name.
 --
@@ -22,10 +22,11 @@ module System.Mem.StableName
 
 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# )
 
 -----------------------------------------------------------------------------