diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-05 16:57:01 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-01-05 17:00:05 +0000 |
| commit | 0b3f53fb8d86278ead96ea08bedd8990d3256dc4 (patch) | |
| tree | d3ae62380f95ab44b711a4d4a7b8eb9630746069 /compiler/utils/GraphPpr.hs | |
| parent | d6c8da69ed75f0a046bfcf779e71a4ecd2dab106 (diff) | |
| download | haskell-wip/redundant-constraints.tar.gz | |
Remove redundant constraints in the compiler itself, found by -fwarn-redundant-constraintswip/redundant-constraints
Diffstat (limited to 'compiler/utils/GraphPpr.hs')
| -rw-r--r-- | compiler/utils/GraphPpr.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/utils/GraphPpr.hs b/compiler/utils/GraphPpr.hs index df85fddc5b..ca5d412c60 100644 --- a/compiler/utils/GraphPpr.hs +++ b/compiler/utils/GraphPpr.hs @@ -28,7 +28,7 @@ dumpGraph graph $$ (vcat $ map dumpNode $ eltsUFM $ graphMap graph) dumpNode - :: (Outputable k, Outputable cls, Outputable color) + :: (Outputable k, Outputable color) => Node k cls color -> SDoc dumpNode node @@ -74,8 +74,7 @@ dotGraph colorMap triv graph , space ]) -dotNode :: ( Uniquable k - , Outputable k, Outputable cls, Outputable color) +dotNode :: ( Outputable k, Outputable cls, Outputable color) => (color -> SDoc) -> Triv k cls color -> Node k cls color -> SDoc @@ -132,7 +131,7 @@ dotNode colorMap triv node dotNodeEdges :: ( Uniquable k - , Outputable k, Outputable cls, Outputable color) + , Outputable k) => UniqSet k -> Node k cls color -> (UniqSet k, Maybe SDoc) |