From: simonpj <unknown>
Date: Wed, 21 Feb 2001 17:15:45 +0000 (+0000)
Subject: [project @ 2001-02-21 17:15:45 by simonpj]
X-Git-Tag: Approximately_9120_patches~2570
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dc96776f90d958bf45f33654aba61af6c64e2873;p=ghc-hetmet.git

[project @ 2001-02-21 17:15:45 by simonpj]
Add integerTyCon to the ubiquitous types
---

diff --git a/ghc/compiler/rename/RnEnv.lhs b/ghc/compiler/rename/RnEnv.lhs
index 582f0aa..f87d584 100644
--- a/ghc/compiler/rename/RnEnv.lhs
+++ b/ghc/compiler/rename/RnEnv.lhs
@@ -35,7 +35,7 @@ import NameSet
 import OccName		( OccName, occNameUserString, occNameFlavour )
 import Module		( ModuleName, moduleName, mkVanillaModule, 
 			  mkSysModuleNameFS, moduleNameFS, WhereFrom(..) )
-import TysWiredIn	( unitTyCon, intTyCon, boolTyCon )
+import TysWiredIn	( unitTyCon, intTyCon, boolTyCon, integerTyCon )
 import Type		( funTyCon )
 import PrelNames	( mkUnboundName, syntaxList, SyntaxMap,	vanillaSyntaxMap,
 			  derivingOccurrences,
@@ -399,8 +399,8 @@ ubiquitousNames
 	-- Virtually every program has error messages in it somewhere
 
   `plusFV`
-    mkFVs (map getName [unitTyCon, funTyCon, boolTyCon, intTyCon])
-	-- Add occurrences for Int, and (), because they
+    mkFVs (map getName [unitTyCon, funTyCon, boolTyCon, intTyCon, integerTyCon])
+	-- Add occurrences for Integer, and (), because they
 	-- are the types to which ambigious type variables may be defaulted by
 	-- the type checker; so they won't always appear explicitly.
 	-- [The () one is a GHC extension for defaulting CCall results.]