[project @ 2000-11-10 15:12:50 by simonpj]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelNames.lhs

diff --git a/ghc/compiler/prelude/PrelNames.lhs b/ghc/compiler/prelude/PrelNames.lhs
index 391a77d..1ad075d 100644 (file)
--- a/ghc/compiler/prelude/PrelNames.lhs
+++ b/ghc/compiler/prelude/PrelNames.lhs
@@ -38,7 +38,7 @@ module PrelNames (
 
 import Module    ( ModuleName, mkPrelModule, mkModuleName )
 import OccName   ( NameSpace, UserFS, varName, dataName, tcName, clsName, mkKindOccFS )
-import RdrName   ( RdrName, mkOrig, mkRdrOrig )
+import RdrName   ( RdrName, mkOrig, mkRdrOrig, mkUnqual )
 import UniqFM
 import Unique    ( Unique, Uniquable(..), hasKey,
                    mkPreludeMiscIdUnique, mkPreludeDataConUnique,
@@ -241,6 +241,21 @@ mkTupConRdrName space boxity arity   = case mkTupNameStr boxity arity of
 
 %************************************************************************
 %*                                                                     *
+\subsection{Unqualified RdrNames}
+%*                                                                     *
+%************************************************************************
+
+\begin{code}
+main_RDR_Unqual :: RdrName
+main_RDR_Unqual = mkUnqual varName SLIT("main")
+-- Don't get a RdrName from PrelNames.mainName, because nameRdrName
+-- gets an Orig RdrName, and we want a Qual or Unqual one.  An Unqual
+-- one will do fine.
+\end{code}
+
+
+%************************************************************************
+%*                                                                     *
 \subsection{Commonly-used RdrNames}
 %*                                                                     *
 %************************************************************************
@@ -548,7 +563,6 @@ deRefStablePtr_RDR  = nameRdrName deRefStablePtrName
 newStablePtr_RDR       = nameRdrName newStablePtrName
 bindIO_RDR             = nameRdrName bindIOName
 returnIO_RDR           = nameRdrName returnIOName
-main_RDR               = nameRdrName mainName
 fromInteger_RDR                = nameRdrName fromIntegerName
 fromRational_RDR       = nameRdrName fromRationalName
 minus_RDR              = nameRdrName minusName