diff options
author | Ben Gamari <ben@smart-cactus.org> | 2020-05-20 15:17:00 -0400 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-25 09:48:53 -0400 |
commit | b28137505a2fc3a15f2c0ba31c39c1869ce65cdc (patch) | |
tree | 8ff1ba55bee157b6f3b799756ce62958fc2dec08 | |
parent | 1abf3c844821c98dad7f6f5b23cc3f7889dce64c (diff) | |
download | haskell-b28137505a2fc3a15f2c0ba31c39c1869ce65cdc.tar.gz |
Coverage: Make ccIndices strict
This just seems like a good idea.
-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 e5bbf97347..7426aeaa96 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -1005,7 +1005,7 @@ addTickArithSeqInfo (FromThenTo e1 e2 e3) = data TickTransState = TT { tickBoxCount:: !Int , mixEntries :: [MixEntry_] - , ccIndices :: CostCentreState + , ccIndices :: !CostCentreState } data TickTransEnv = TTE { fileName :: FastString |