Commit ad773dac authored by batterseapower's avatar batterseapower
Browse files

Follow Digraph changes in VectType

parent 3771bfe8
......@@ -33,7 +33,7 @@ import Unique
import UniqFM
import UniqSet
import Util
import Digraph ( SCC(..), stronglyConnComp )
import Digraph ( SCC(..), stronglyConnCompFromEdgedVertices )
import Outputable
import FastString
......@@ -979,7 +979,7 @@ classifyTyCons = classify [] []
-- | Compute mutually recursive groups of tycons in topological order
--
tyConGroups :: [TyCon] -> [TyConGroup]
tyConGroups tcs = map mk_grp (stronglyConnComp edges)
tyConGroups tcs = map mk_grp (stronglyConnCompFromEdgedVertices edges)
where
edges = [((tc, ds), tc, uniqSetToList ds) | tc <- tcs
, 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