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
1 changed file:
Changes:
| ... | ... | @@ -92,6 +92,7 @@ module GHC.Types.Name.Occurrence ( |
| 92 | 92 | plusOccEnv, plusOccEnv_C,
|
| 93 | 93 | extendOccEnv_Acc, filterOccEnv, delListFromOccEnv, delFromOccEnv,
|
| 94 | 94 | alterOccEnv, minusOccEnv, minusOccEnv_C, minusOccEnv_C_Ns,
|
| 95 | + sizeOccEnv,
|
|
| 95 | 96 | pprOccEnv, forceOccEnv,
|
| 96 | 97 | intersectOccEnv_C,
|
| 97 | 98 | |
| ... | ... | @@ -803,6 +804,10 @@ minusOccEnv_C_Ns f (MkOccEnv as) (MkOccEnv bs) = |
| 803 | 804 | then Nothing
|
| 804 | 805 | else Just m
|
| 805 | 806 | |
| 807 | +sizeOccEnv :: OccEnv a -> Int
|
|
| 808 | +sizeOccEnv (MkOccEnv as) =
|
|
| 809 | + nonDetFoldFsEnv (\ !acc m -> acc + sizeUDFM m) 0 as
|
|
| 810 | + |
|
| 806 | 811 | instance Outputable a => Outputable (OccEnv a) where
|
| 807 | 812 | ppr x = pprOccEnv ppr x
|
| 808 | 813 |