Commit ad773dac authored by batterseapower's avatar batterseapower
Browse files

Follow Digraph changes in VectType

parent 3771bfe8
...@@ -33,7 +33,7 @@ import Unique ...@@ -33,7 +33,7 @@ import Unique
import UniqFM import UniqFM
import UniqSet import UniqSet
import Util import Util
import Digraph ( SCC(..), stronglyConnComp ) import Digraph ( SCC(..), stronglyConnCompFromEdgedVertices )
import Outputable import Outputable
import FastString import FastString
...@@ -979,7 +979,7 @@ classifyTyCons = classify [] [] ...@@ -979,7 +979,7 @@ classifyTyCons = classify [] []
-- | Compute mutually recursive groups of tycons in topological order -- | Compute mutually recursive groups of tycons in topological order
-- --
tyConGroups :: [TyCon] -> [TyConGroup] tyConGroups :: [TyCon] -> [TyConGroup]
tyConGroups tcs = map mk_grp (stronglyConnComp edges) tyConGroups tcs = map mk_grp (stronglyConnCompFromEdgedVertices edges)
where where
edges = [((tc, ds), tc, uniqSetToList ds) | tc <- tcs edges = [((tc, ds), tc, uniqSetToList ds) | tc <- tcs
, let ds = tyConsOfTyCon tc] , let ds = tyConsOfTyCon tc]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment