[commit: ghc] master: CmmNode: Make CmmTickScope's Unique strict (3e8c495)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3e8c495f2e6557c85c65c7fc91113f45b010d333/ghc

>---------------------------------------------------------------

commit 3e8c495f2e6557c85c65c7fc91113f45b010d333
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Jun 17 21:29:56 2016 +0200

    CmmNode: Make CmmTickScope's Unique strict
    
    There is no reason why we need laziness here and making it strict
    enables unpacking.


>---------------------------------------------------------------

3e8c495f2e6557c85c65c7fc91113f45b010d333
 compiler/cmm/CmmNode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs
index c93639c..b2e5cfb 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: