[project @ 1996-06-11 13:18:54 by partain]

[ghc-hetmet.git] / ghc / compiler / reader / RdrHsSyn.lhs

diff --git a/ghc/compiler/reader/RdrHsSyn.lhs b/ghc/compiler/reader/RdrHsSyn.lhs
index 29f69cb..cb5aa2b 100644 (file)
--- 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