X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FTypeRep.lhs;h=a867cad601bcdc7619739f69f8129ec2c1b1f680;hb=bb88e732b7383c10496c0f60c3bdea2c22362cc6;hp=0e0f88f39b93686019366d35b0b59438fbc80447;hpb=f5eaddd403cee4691d326a256649477d6891fefb;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/TypeRep.lhs b/ghc/compiler/types/TypeRep.lhs
index 0e0f88f..a867cad 100644
--- a/ghc/compiler/types/TypeRep.lhs
+++ b/ghc/compiler/types/TypeRep.lhs
@@ -34,7 +34,7 @@ import Kind
 import Var	  ( Id, TyVar, tyVarKind )
 import VarEnv     ( TyVarEnv )
 import VarSet     ( TyVarSet )
-import Name	  ( Name, NamedThing(..), mkWiredInName )
+import Name	  ( Name, NamedThing(..), BuiltInSyntax(..), mkWiredInName )
 import OccName	  ( mkOccFS, tcName )
 import BasicTypes ( IPName, tupleParens )
 import TyCon	  ( TyCon, mkFunTyCon, tyConArity, tupleTyConBoxity, isTupleTyCon, isRecursiveTyCon )
@@ -290,6 +290,7 @@ funTyConName = mkWiredInName gHC_PRIM
 			funTyConKey
 			Nothing 		-- No parent object
 			(ATyCon funTyCon)	-- Relevant TyCon
+			BuiltInSyntax
 \end{code}