fix haddock submodule pointer

[ghc-hetmet.git] / compiler / codeGen / CgBindery.lhs

diff --git a/compiler/codeGen/CgBindery.lhs b/compiler/codeGen/CgBindery.lhs
index 59996c3..d8675c5 100644 (file)
--- a/compiler/codeGen/CgBindery.lhs
+++ b/compiler/codeGen/CgBindery.lhs
@@ -39,7 +39,7 @@ import CLabel
 import ClosureInfo
 import Constants
 
-import Cmm
+import OldCmm
 import PprCmm          ( {- instance Outputable -} )
 import SMRep
 import Id
@@ -317,14 +317,14 @@ cgLookupPanic :: Id -> FCode a
 cgLookupPanic id
   = do static_binds <- getStaticBinds
        local_binds <- getBinds
-       srt <- getSRTLabel
-       pprPanic "cgPanic"
+--      srt <- getSRTLabel
+        pprPanic "cgLookupPanic (probably invalid Core; try -dcore-lint)"
                (vcat [ppr id,
                ptext (sLit "static binds for:"),
                vcat [ ppr (cg_id info) | info <- varEnvElts static_binds ],
                ptext (sLit "local binds for:"),
-               vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ],
-               ptext (sLit "SRT label") <+> pprCLabel srt
+                vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ]
+--              ptext (sLit "SRT label") <+> pprCLabel srt
              ])
 \end{code}