X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=1ffe1f78baf4579c85bee100a5eb17d5f8c66103;hb=1bba522f5ec82c43abd2ba4e84127b9c915dd020;hp=df72d3159b08b92abbc35a8613a547871ca7fe1e;hpb=d3d3c6122f19a9a936f3c0b6f10486faaa1055bd;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index df72d31..1ffe1f7 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -275,6 +275,7 @@ isOrphanDecl (RuleD (HsRule _ _ _ lhs _ _))
     check (HsVar v)   	  = not (isLocallyDefined v)
     check (HsApp f a) 	  = check f && check a
     check (HsLit _)   	  = False
+    check (HsOverLit _)	  = False
     check (OpApp l o _ r) = check l && check o && check r
     check (NegApp e _)    = check e
     check (HsPar e)	  = check e
@@ -548,7 +549,6 @@ getGates source_fvs (TyClD (TyData _ ctxt tycon tvs cons _ _ _ _))
     get_details (VanillaCon tys) = plusFVs (map get_bang tys)
     get_details (InfixCon t1 t2) = get_bang t1 `plusFV` get_bang t2
     get_details (RecCon fields)  = plusFVs [get_bang t | (_, t) <- fields]
-    get_details (NewCon t _)	 = extractHsTyNames t
 
     get_field (fs,t) | any (`elemNameSet` source_fvs) fs = get_bang t
 		     | otherwise			 = emptyFVs