diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-05-20 15:16:13 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-25 09:48:53 -0400 |
| commit | 1abf3c844821c98dad7f6f5b23cc3f7889dce64c (patch) | |
| tree | 09b29dcfff9260be3764da3eae5f349961e286d8 | |
| parent | 4c4312edd988b8aeeb65e095056743c30678df15 (diff) | |
| download | haskell-1abf3c844821c98dad7f6f5b23cc3f7889dce64c.tar.gz | |
Coverage: Make tickBoxCount strict
This could otherwise easily cause a leak of (+) thunks.
| -rw-r--r-- | compiler/GHC/HsToCore/Coverage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Coverage.hs b/compiler/GHC/HsToCore/Coverage.hs index f5c667c687..e5bbf97347 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -1003,7 +1003,7 @@ addTickArithSeqInfo (FromThenTo e1 e2 e3) = (addTickLHsExpr e2) (addTickLHsExpr e3) -data TickTransState = TT { tickBoxCount:: Int +data TickTransState = TT { tickBoxCount:: !Int , mixEntries :: [MixEntry_] , ccIndices :: CostCentreState } |