[commit: ghc] master: Wibble to RnSplice (really belongs with b7f35733) (ea49c01)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/ea49c01540c0f363048f6b04ba106d7893578574/ghc

>---------------------------------------------------------------

commit ea49c01540c0f363048f6b04ba106d7893578574
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Nov 22 09:58:42 2013 +0000

    Wibble to RnSplice (really belongs with b7f35733)


>---------------------------------------------------------------

ea49c01540c0f363048f6b04ba106d7893578574
 compiler/rename/RnSplice.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/rename/RnSplice.lhs b/compiler/rename/RnSplice.lhs
index 5116758..fc0c499 100644
--- a/compiler/rename/RnSplice.lhs
+++ b/compiler/rename/RnSplice.lhs
@@ -340,8 +340,8 @@ rn_bracket outer_stage br@(VarBr flg rdr_name)
            ; True | nameIsLocalOrFrom this_mod name ->
                  do { mb_bind_lvl <- lookupLocalOccThLvl_maybe name
                     ; case mb_bind_lvl of
-                        { Nothing -> pprTrace "rn_bracket" (ppr name) $ -- Should not happen for local names
-                                     return ()
+                        { Nothing -> return ()      -- Can happen for data constructors,
+                                                    -- but nothign needs doing for them
 
                         ; Just (top_lvl, bind_lvl)  -- See Note [Quoting names]
                              | isTopLevel top_lvl