@@ -342,7 +342,6 @@ poolToRankTable youngMark youngRank youngInhabitants =
343adjustRank :: Mark -> Mark -> Int -> Variable -> IO Int
343adjustRank :: Mark -> Mark -> Int -> Variable -> IO Int
344adjustRank youngMark visitMark groupRank var =
344adjustRank youngMark visitMark groupRank var =
345− {-# SCC elm_compiler_type_adjust #-}
346 do (Descriptor content rank mark copy) <- UF.get var
345 do (Descriptor content rank mark copy) <- UF.get var
347 if mark == youngMark then
346 if mark == youngMark then
348 do -- Set the variable as marked first because it may be cyclic.
347 do -- Set the variable as marked first because it may be cyclic.