[commit: ghc] master: Improve panic printout (aebc7e1)

[git at git.haskell.org]

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

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

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

commit aebc7e1bfa7f026e6842500032d7cb6a386494b5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Nov 22 10:10:13 2013 +0000

    Improve panic printout


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

aebc7e1bfa7f026e6842500032d7cb6a386494b5
 compiler/cmm/CmmBuildInfoTables.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/cmm/CmmBuildInfoTables.hs b/compiler/cmm/CmmBuildInfoTables.hs
index 55a3eff..04c3b71 100644
--- a/compiler/cmm/CmmBuildInfoTables.hs
+++ b/compiler/cmm/CmmBuildInfoTables.hs
@@ -30,6 +30,7 @@ import SMRep
 import UniqSupply
 import Util
 
+import PprCmm()
 import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Set (Set)
@@ -301,7 +302,7 @@ bundle flatmap (env, decl@(CmmProc infos lbl _ g)) (closure_cafs, mb_lbl)
   get_cafs l _
     | l == entry = entry_cafs
     | otherwise  = if not (mapMember l env)
-                      then pprPanic "bundle" (ppr l <+> ppr lbl <+> ppr (info_tbls infos))
+                      then pprPanic "bundle" (ppr l <+> ppr lbl <+> ppr (info_tbls infos) $$ ppr env $$ ppr decl)
                       else flatten flatmap $ expectJust "bundle" $ mapLookup l env
 
 bundle _flatmap (_, decl) _