X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2FPrelNames.lhs;h=21e352088c015c2a5a15993890c151129cb33f5c;hp=bffd07c7d4ebd1c7dd373992e4744a3f13d454ce;hb=1c8e62f6c68882f65140e3ed3049ac626cf3cb61;hpb=67cb409159fa9136dff942b8baaec25909416022

diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs
index bffd07c..21e3520 100644
--- a/compiler/prelude/PrelNames.lhs
+++ b/compiler/prelude/PrelNames.lhs
@@ -57,8 +57,8 @@ module PrelNames (
 #include "HsVersions.h"
 
 import Module
-import OccName	  ( dataName, tcName, clsName, varName, mkOccNameFS,
-		    mkVarOccFS )
+import OccName	  ( dataName, tcName, clsName, varName, tvName, 
+		    mkOccNameFS, mkVarOccFS )
 import RdrName	  ( RdrName, nameRdrName, mkOrig, rdrNameOcc, mkUnqual )
 import Unique	  ( Unique, Uniquable(..), hasKey,
 		    mkPreludeMiscIdUnique, mkPreludeDataConUnique,
@@ -322,14 +322,19 @@ mkTupleModule Unboxed _ = gHC_PRIM
 %************************************************************************
 
 \begin{code}
-main_RDR_Unqual 	= mkUnqual varName FSLIT("main")
+main_RDR_Unqual	= mkUnqual varName FSLIT("main")
 	-- We definitely don't want an Orig RdrName, because
 	-- main might, in principle, be imported into module Main
 
+forall_tv_RDR, dot_tv_RDR :: RdrName
+forall_tv_RDR = mkUnqual tvName FSLIT("forall")
+dot_tv_RDR    = mkUnqual tvName FSLIT(".")
+
 eq_RDR 			= nameRdrName eqName
 ge_RDR 			= nameRdrName geName
 ne_RDR 			= varQual_RDR  gHC_BASE FSLIT("/=")
 le_RDR 			= varQual_RDR  gHC_BASE FSLIT("<=") 
+lt_RDR 			= varQual_RDR  gHC_BASE FSLIT("<") 
 gt_RDR 			= varQual_RDR  gHC_BASE FSLIT(">")  
 compare_RDR		= varQual_RDR  gHC_BASE FSLIT("compare") 
 ltTag_RDR		= dataQual_RDR gHC_BASE FSLIT("LT")