diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-06-01 12:18:56 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-21 06:39:33 -0400 |
| commit | 30caeee75193ea961c55ee847a3156e23116e84e (patch) | |
| tree | 3f6e0a8238c1fb631f476b15b29c0a3cef4ca9ba /compiler/GHC/CoreToStg.hs | |
| parent | 0dd405529f0f17cd9a5b299e7ae5539a885b4b5a (diff) | |
| download | haskell-30caeee75193ea961c55ee847a3156e23116e84e.tar.gz | |
DynFlags: remove use of sdocWithDynFlags from GHC.Stg.* (#17957)
* add StgPprOpts datatype
* remove Outputable instances for types that need `StgPprOpts` to be
pretty-printed and explicitly call type specific ppr functions
* add default `panicStgPprOpts` for panic messages (when it's not
convenient to thread StgPprOpts or DynFlags down to the ppr function
call)
Diffstat (limited to 'compiler/GHC/CoreToStg.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToStg.hs b/compiler/GHC/CoreToStg.hs index 795a3d8b08..a7456d335b 100644 --- a/compiler/GHC/CoreToStg.hs +++ b/compiler/GHC/CoreToStg.hs @@ -445,7 +445,7 @@ coreToStgExpr e0@(Case scrut bndr _ alts) = do _ -> pprPanic "coreToStgExpr" $ text "Unexpected unsafe equality case expression:" $$ ppr e0 $$ - text "STG:" $$ ppr stg + text "STG:" $$ pprStgExpr panicStgPprOpts stg _ -> return stg where vars_alt :: (AltCon, [Var], CoreExpr) -> CtsM (AltCon, [Var], StgExpr) |