X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Frename%2FRnHsSyn.lhs;fp=compiler%2Frename%2FRnHsSyn.lhs;h=9226cb4668588dc9addc6ca080650dd7ca738a8e;hb=1a9245caefb80a3c4c5965aaacdf9a607e792e1c;hp=60e08238027913c7127fac217a77a9edc6b63d7b;hpb=c27e722fcf8ea5fb4dc0c64e9e1d6c4b66abd46c;p=ghc-hetmet.git

diff --git a/compiler/rename/RnHsSyn.lhs b/compiler/rename/RnHsSyn.lhs
index 60e0823..9226cb4 100644
--- a/compiler/rename/RnHsSyn.lhs
+++ b/compiler/rename/RnHsSyn.lhs
@@ -77,6 +77,8 @@ extractHsTyNames ty
                                             `minusNameSet`
                                   mkNameSet (hsLTyVarNames tvs)
     get (HsDocTy ty _)         = getl ty
+    get (HsCoreTy {})          = emptyNameSet	-- This probably isn't quite right
+    		  	       	 		-- but I don't think it matters
 
 extractHsTyNames_s  :: [LHsType Name] -> NameSet
 extractHsTyNames_s tys = foldr (unionNameSets . extractHsTyNames) emptyNameSet tys