diff options
| author | Gergő Érdi <gergo@erdi.hu> | 2022-11-22 03:50:01 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-12-08 08:31:03 -0500 |
| commit | 8d36c0c65ada5c0eb7b82de6b69d3dd67a7c9f9c (patch) | |
| tree | 1dcd1233df16ff9d1e788772766ee96de08d1073 | |
| parent | e902d771197fd93488938b5eacb1ad6f23d408b7 (diff) | |
| download | haskell-8d36c0c65ada5c0eb7b82de6b69d3dd67a7c9f9c.tar.gz | |
Remove copy-pasted definitions of `graphFromEdgedVertices*`
| -rw-r--r-- | compiler/GHC/Data/Graph/Directed.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Data/Graph/Directed.hs b/compiler/GHC/Data/Graph/Directed.hs index 74e619ef90..85685691c3 100644 --- a/compiler/GHC/Data/Graph/Directed.hs +++ b/compiler/GHC/Data/Graph/Directed.hs @@ -334,7 +334,7 @@ stronglyConnCompFromEdgedVerticesOrdR => [Node key payload] -> [SCC (Node key payload)] stronglyConnCompFromEdgedVerticesOrdR = - stronglyConnCompG . graphFromEdgedVertices reduceNodesIntoVerticesOrd + stronglyConnCompG . graphFromEdgedVerticesOrd -- The "R" interface is used when you expect to apply SCC to -- (some of) the result of SCC, so you don't want to lose the dependency info @@ -345,7 +345,7 @@ stronglyConnCompFromEdgedVerticesUniqR => [Node key payload] -> [SCC (Node key payload)] stronglyConnCompFromEdgedVerticesUniqR = - stronglyConnCompG . graphFromEdgedVertices reduceNodesIntoVerticesUniq + stronglyConnCompG . graphFromEdgedVerticesUniq {- ************************************************************************ |