diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-06-17 21:29:56 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-06-18 11:44:50 +0200 |
| commit | 3e8c495f2e6557c85c65c7fc91113f45b010d333 (patch) | |
| tree | 4f1ff626a23933dbcb2a76252661d9bcef15866c /compiler/cmm | |
| parent | 8d33af90d20c86bc63f1fa155583daa9a52d42bc (diff) | |
| download | haskell-3e8c495f2e6557c85c65c7fc91113f45b010d333.tar.gz | |
CmmNode: Make CmmTickScope's Unique strict
There is no reason why we need laziness here and making it strict
enables unpacking.
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmNode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index c93639c3c0..b2e5cfb546 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -581,7 +581,7 @@ data CmmTickScope -- to add ticks to this scope. On the other hand, this means that -- setting this scope on a block means no ticks apply to it. - | SubScope U.Unique CmmTickScope + | SubScope !U.Unique CmmTickScope -- ^ Constructs a new sub-scope to an existing scope. This allows -- us to translate Core-style scoping rules (see @tickishScoped@) -- into the Cmm world. Suppose the following code: |