Rodrigo Mesquita pushed to branch wip/romes/more-debugger at Glasgow Haskell Compiler / GHC Commits: c4dd98a9 by Rodrigo Mesquita at 2025-04-17T17:29:24+01:00 Export sizeOccEnv from GHC.Types.Name.Occurrence - - - - - 1 changed file: - compiler/GHC/Types/Name/Occurrence.hs Changes: ===================================== compiler/GHC/Types/Name/Occurrence.hs ===================================== @@ -92,6 +92,7 @@ module GHC.Types.Name.Occurrence ( plusOccEnv, plusOccEnv_C, extendOccEnv_Acc, filterOccEnv, delListFromOccEnv, delFromOccEnv, alterOccEnv, minusOccEnv, minusOccEnv_C, minusOccEnv_C_Ns, + sizeOccEnv, pprOccEnv, forceOccEnv, intersectOccEnv_C, @@ -803,6 +804,10 @@ minusOccEnv_C_Ns f (MkOccEnv as) (MkOccEnv bs) = then Nothing else Just m +sizeOccEnv :: OccEnv a -> Int +sizeOccEnv (MkOccEnv as) = + nonDetFoldFsEnv (\ !acc m -> acc + sizeUDFM m) 0 as + instance Outputable a => Outputable (OccEnv a) where ppr x = pprOccEnv ppr x View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c4dd98a9a0f6dfcfdd0aabdeb3ad7ddc... -- View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/c4dd98a9a0f6dfcfdd0aabdeb3ad7ddc... You're receiving this email because of your account on gitlab.haskell.org.