[project @ 1996-04-08 16:15:43 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / UniqFM.lhs

diff --git a/ghc/compiler/utils/UniqFM.lhs b/ghc/compiler/utils/UniqFM.lhs
index f23ef1f..eb3cffb 100644 (file)
--- a/ghc/compiler/utils/UniqFM.lhs
+++ b/ghc/compiler/utils/UniqFM.lhs
@@ -21,6 +21,7 @@ Basically, the things need to be in class @Uniquable@, and we use the
 
 module UniqFM (
        UniqFM,   -- abstract type
+       Uniquable(..), -- class to go with it
 
        emptyUFM,
        unitUFM,
@@ -54,12 +55,12 @@ module UniqFM (
     ) where
 
 #if defined(COMPILING_GHC)
-CHK_Ubiq() -- debugging consistency check
+import Ubiq{-uitous-}
 #endif
 
-import Unique          ( Unique, Uniquable(..), u2i, mkUniqueGrimily )
+import Unique          ( Unique, u2i, mkUniqueGrimily )
 import Util
-import Outputable      ( Outputable(..), ExportFlag )
+--import Outputable    ( Outputable(..), ExportFlag )
 import Pretty          ( Pretty(..), PrettyRep )
 import PprStyle                ( PprStyle )
 import SrcLoc          ( SrcLoc )
@@ -261,6 +262,9 @@ data UniqFM ele
            (UniqFM ele)
            (UniqFM ele)
 
+class Uniquable a where
+    uniqueOf :: a -> Unique
+
 -- for debugging only :-)
 {-
 instance Text (UniqFM a) where