X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Freader%2FRdrHsSyn.lhs;h=cb5aa2b4b401717d6e058e0f68ecd88b14724840;hb=ae45ff0e9831a0dc862a5d68d03e355d7e323c62;hp=29f69cb3163317859440a407b68a56687a545065;hpb=f9120c200bcf613b58d742802172fb4c08171f0d;p=ghc-hetmet.git

diff --git a/ghc/compiler/reader/RdrHsSyn.lhs b/ghc/compiler/reader/RdrHsSyn.lhs
index 29f69cb..cb5aa2b 100644
--- a/ghc/compiler/reader/RdrHsSyn.lhs
+++ b/ghc/compiler/reader/RdrHsSyn.lhs
@@ -11,6 +11,7 @@ they are used somewhat later on in the compiler...)
 
 module RdrHsSyn (
 	RdrNameArithSeqInfo(..),
+	RdrNameBangType(..),
 	RdrNameBind(..),
 	RdrNameClassDecl(..),
 	RdrNameClassOpSig(..),
@@ -49,14 +50,15 @@ module RdrHsSyn (
 	getRawExportees
     ) where
 
-import Ubiq
+IMP_Ubiq()
 
 import HsSyn
-import Outputable	( ExportFlag(..) )
+import Name		( ExportFlag(..) )
 \end{code}
 
 \begin{code}
 type RdrNameArithSeqInfo	= ArithSeqInfo		Fake Fake RdrName RdrNamePat
+type RdrNameBangType		= BangType		RdrName
 type RdrNameBind		= Bind			Fake Fake RdrName RdrNamePat
 type RdrNameClassDecl		= ClassDecl		Fake Fake RdrName RdrNamePat
 type RdrNameClassOpSig		= Sig			RdrName
@@ -78,7 +80,7 @@ type RdrNameMonoBinds		= MonoBinds		Fake Fake RdrName RdrNamePat
 type RdrNameMonoType		= MonoType		RdrName
 type RdrNamePat			= InPat			RdrName
 type RdrNamePolyType		= PolyType		RdrName
-type RdrNameQual		= Qual			Fake Fake RdrName RdrNamePat
+type RdrNameQual		= Qualifier		Fake Fake RdrName RdrNamePat
 type RdrNameSig			= Sig			RdrName
 type RdrNameSpecInstSig		= SpecInstSig 		RdrName
 type RdrNameStmt		= Stmt			Fake Fake RdrName RdrNamePat