diff options
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Graph/Stats.hs')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Graph/Stats.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Graph/Stats.hs b/compiler/nativeGen/RegAlloc/Graph/Stats.hs index 07f4266b48..cfd8f83122 100644 --- a/compiler/nativeGen/RegAlloc/Graph/Stats.hs +++ b/compiler/nativeGen/RegAlloc/Graph/Stats.hs @@ -129,7 +129,7 @@ instance (Outputable statics, Outputable instr) $$ (if (not $ isNullUFM $ raCoalesced s) then text "# Registers coalesced." - $$ (vcat $ map ppr $ ufmToList $ raCoalesced s) + $$ (pprUFMWithKeys (raCoalesced s) (vcat . map ppr)) $$ text "" else empty) @@ -160,7 +160,7 @@ instance (Outputable statics, Outputable instr) $$ (if (not $ isNullUFM $ raCoalesced s) then text "# Registers coalesced." - $$ (vcat $ map ppr $ ufmToList $ raCoalesced s) + $$ (pprUFMWithKeys (raCoalesced s) (vcat . map ppr)) $$ text "" else empty) |