diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-18 16:12:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-18 16:12:51 +0100 |
| commit | 2d969ff971eab7d847c5870c8825409cbcf959b4 (patch) | |
| tree | 97f3a713e4abdd7257cf9e78de63d9a7b06d87e2 /compiler | |
| parent | d8dc1f858d2c7e3f63a3b31a5c2b61d037a6d211 (diff) | |
| download | haskell-2d969ff971eab7d847c5870c8825409cbcf959b4.tar.gz | |
Small code simplification
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/codeGen/StgCmmEnv.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs index 2edd09da12..67953ce95a 100644 --- a/compiler/codeGen/StgCmmEnv.hs +++ b/compiler/codeGen/StgCmmEnv.hs @@ -51,7 +51,6 @@ import VarEnv import Control.Monad import Name import StgSyn -import DynFlags import Outputable ------------------------------------- @@ -182,8 +181,7 @@ getCgIdInfo id cgLookupPanic :: Id -> FCode a cgLookupPanic id - = do dflags <- getDynFlags - static_binds <- getStaticBinds + = do static_binds <- getStaticBinds local_binds <- getBinds srt <- getSRTLabel pprPanic "StgCmmEnv: variable not found" @@ -192,7 +190,7 @@ cgLookupPanic id 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 (targetPlatform dflags) srt + ptext (sLit "SRT label") <+> ppr srt ]) |