[commit: ghc] master: UNPACK the size field of SizedSeq (1fe5c89)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/1fe5c8916a2bdf90ed2d9c70f900642b56650592/ghc

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

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

    UNPACK the size field of SizedSeq


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

1fe5c8916a2bdf90ed2d9c70f900642b56650592
 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