X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnBinds.lhs;h=7e38efe1fac3318beb281e0e9d1c88d909c4153a;hp=0dbed29c63eb11259241d710bbd3dde3a78bd203;hb=f3399c446c7507d46d6cc550aa2fe7027dbc1b5b;hpb=206b4dec78250efef3cd927d64dc6cbc54a16c3d

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 0dbed29..7e38efe 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -44,7 +44,7 @@ import RnEnv		( lookupLocatedBndrRn,
                           bindLocatedLocalsFV, bindLocalNames, bindLocalNamesFV,
                           bindLocalNamesFV_WithFixities,
                           bindLocatedLocalsRn,
-                          checkDupNames, checkShadowing
+                          checkDupAndShadowedRdrNames
 			)
 import DynFlags	( DynFlag(..) )
 import HscTypes		(FixItem(..))
@@ -282,8 +282,7 @@ rnValBindsLHSFromDoc_Local boundNames doc fix_env binds = do
      -- Do error checking: we need to check for dups here because we
      -- don't don't bind all of the variables from the ValBinds at once
      -- with bindLocatedLocals any more.
-     checkDupNames  doc boundNames
-     checkShadowing doc boundNames   
+     checkDupAndShadowedRdrNames doc boundNames
 
      -- (Note that we don't want to do this at the top level, since
      -- sorting out duplicates and shadowing there happens elsewhere.