[commit: ghc] ghc-8.0: UNPACK the size field of SizedSeq (864053f)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/864053f967b43c255fc26dd8568cdf4abcd12950/ghc

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

commit 864053f967b43c255fc26dd8568cdf4abcd12950
Author: Simon Marlow <smarlow at fb.com>
Date:   Thu Jul 21 05:47:47 2016 -0700

    UNPACK the size field of SizedSeq
    
    (cherry picked from commit 1fe5c8916a2bdf90ed2d9c70f900642b56650592)


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

864053f967b43c255fc26dd8568cdf4abcd12950
 libraries/ghci/SizedSeq.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/ghci/SizedSeq.hs b/libraries/ghci/SizedSeq.hs
index 503544a..55433c2 100644
--- a/libraries/ghci/SizedSeq.hs
+++ b/libraries/ghci/SizedSeq.hs
@@ -13,7 +13,7 @@ import Data.Binary
 import Data.List
 import GHC.Generics
 
-data SizedSeq a = SizedSeq !Word [a]
+data SizedSeq a = SizedSeq {-# UNPACK #-} !Word [a]
   deriving (Generic, Show)
 
 instance Functor SizedSeq where