X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FUsage.lhs;h=e13a6195bb407f65f7181e73f1da648ab85b3fde;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=7d6c448f1f3926f5c563c634462899ddbc2046a6;hpb=f01a8e8c9c53bfb5ab3393ed3457ebf25390efa1;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Usage.lhs b/ghc/compiler/types/Usage.lhs
index 7d6c448..e13a619 100644
--- 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}
 
 %************************************************************************