diff options
Diffstat (limited to 'compiler/utils/GraphPpr.hs')
| -rw-r--r-- | compiler/utils/GraphPpr.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/GraphPpr.hs b/compiler/utils/GraphPpr.hs index 9c246893f7..f5276842aa 100644 --- a/compiler/utils/GraphPpr.hs +++ b/compiler/utils/GraphPpr.hs @@ -25,7 +25,7 @@ dumpGraph dumpGraph graph = text "Graph" - $$ (vcat $ map dumpNode $ eltsUFM $ graphMap graph) + $$ pprUFM (graphMap graph) (vcat . map dumpNode) dumpNode :: (Outputable k, Outputable color) @@ -65,7 +65,8 @@ dotGraph -> Graph k cls color -> SDoc dotGraph colorMap triv graph - = let nodes = eltsUFM $ graphMap graph + = let nodes = nonDetEltsUFM $ graphMap graph + -- See Note [Unique Determinism and code generation] in vcat ( [ text "graph G {" ] ++ map (dotNode colorMap triv) nodes |