X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FName.lhs;h=25db76171c74ac1f28ba3b61d1e7addb3b68ef83;hb=37a594c2ef06b4655444e2e5a1b0fb386ff9f950;hp=ccce706467824ca24bdbb091c2db5cfa457ff2cb;hpb=ddb04482cbdda4f6637feac517c8e06870e56763;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs
index ccce706..25db761 100644
--- a/compiler/basicTypes/Name.lhs
+++ b/compiler/basicTypes/Name.lhs
@@ -24,7 +24,7 @@ module Name (
 	nameSrcLoc, nameParent, nameParent_maybe, isImplicitName, 
 
 	isSystemName, isInternalName, isExternalName,
-	isTyVarName, isWiredInName, isBuiltInSyntax,
+	isTyVarName, isTyConName, isWiredInName, isBuiltInSyntax,
 	wiredInNameTyThing_maybe, 
 	nameIsLocalOrFrom,
 	
@@ -180,6 +180,9 @@ nameIsLocalOrFrom from name
 isTyVarName :: Name -> Bool
 isTyVarName name = isTvOcc (nameOccName name)
 
+isTyConName :: Name -> Bool
+isTyConName name = isTcOcc (nameOccName name)
+
 isSystemName (Name {n_sort = System}) = True
 isSystemName other		      = False
 \end{code}