diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-09-16 17:40:51 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-09-21 23:05:30 +0200 |
| commit | eb1e236fc6ff37c28cee4cf9a2966ee4a0c4c375 (patch) | |
| tree | f7eb23e5426861da68eb0fac7a667f71684690f3 /compiler/GHC/Cmm/DebugBlock.hs | |
| parent | 06ccad0de07026ea8128a9951f608bcc67ef23d8 (diff) | |
| download | haskell-wip/outputable-cleanup.tar.gz | |
Minor refactor around Outputablewip/outputable-cleanup
* Replace 'text . show' and 'ppr' with 'int'.
* Remove Outputable.hs-boot, no longer needed
* Use pprWithCommas
* Factor out instructions in AArch64 codegen
Diffstat (limited to 'compiler/GHC/Cmm/DebugBlock.hs')
| -rw-r--r-- | compiler/GHC/Cmm/DebugBlock.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/DebugBlock.hs b/compiler/GHC/Cmm/DebugBlock.hs index 6eca29e722..3a7ceb7746 100644 --- a/compiler/GHC/Cmm/DebugBlock.hs +++ b/compiler/GHC/Cmm/DebugBlock.hs @@ -524,7 +524,7 @@ instance OutputableP Platform UnwindExpr where pprUnwindExpr :: Rational -> Platform -> UnwindExpr -> SDoc pprUnwindExpr p env = \case - UwConst i -> ppr i + UwConst i -> int i UwReg g 0 -> ppr g UwReg g x -> pprUnwindExpr p env (UwPlus (UwReg g 0) (UwConst x)) UwDeref e -> char '*' <> pprUnwindExpr 3 env e |