[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / compiler / types / Usage.lhs

diff --git a/ghc/compiler/types/Usage.lhs b/ghc/compiler/types/Usage.lhs
index 7d6c448..e13a619 100644 (file)
--- a/ghc/compiler/types/Usage.lhs
+++ b/ghc/compiler/types/Usage.lhs
@@ -7,18 +7,21 @@
 #include "HsVersions.h"
 
 module Usage (
-       GenUsage(..), Usage(..), UVar(..), UVarEnv(..),
+       GenUsage(..), SYN_IE(Usage), SYN_IE(UVar), SYN_IE(UVarEnv),
        usageOmega, pprUVar, duffUsage,
        nullUVarEnv, mkUVarEnv, addOneToUVarEnv,
        growUVarEnvList, isNullUVarEnv, lookupUVarEnv,
        eqUVar, eqUsage
 ) where
 
-import Ubiq
-import Pretty  ( Pretty(..), PrettyRep, ppPStr, ppBeside )
+IMP_Ubiq(){-uitous-}
+
+import Pretty  ( SYN_IE(Pretty), PrettyRep, ppPStr, ppBeside )
 import UniqFM  ( emptyUFM, listToUFM, addToUFM, lookupUFM,
-                 plusUFM, sizeUFM, UniqFM )
+                 plusUFM, sizeUFM, UniqFM
+               )
 import Unique  ( Unique{-instances-} )
+import Util    ( panic )
 \end{code}
 
 \begin{code}
@@ -33,7 +36,7 @@ type Usage = GenUsage UVar
 usageOmega = UsageOmega
 
 duffUsage :: GenUsage uvar
-duffUsage = error "Usage of non-Type kind doesn't make sense"
+duffUsage = panic "Usage of non-Type kind doesn't make sense"
 \end{code}
 
 %************************************************************************