-----------------------------------------------------------------------------
---
+-- |
-- Module : System.Mem.StableName
-- Copyright : (c) The University of Glasgow 2001
-- License : BSD-style (see the file libraries/core/LICENSE)
-- Stability : experimental
-- Portability : non-portable
--
--- $Id: StableName.hs,v 1.1 2001/06/28 14:15:04 simonmar Exp $
---
-- Giving an object a stable (GC-invariant) name.
--
-----------------------------------------------------------------------------
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# )
-----------------------------------------------------------------------------