UNPACK the size field of SizedSeq
authorSimon Marlow <smarlow@fb.com>
Thu, 21 Jul 2016 12:47:47 +0000 (05:47 -0700)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 22 Jul 2016 12:56:42 +0000 (13:56 +0100)
libraries/ghci/SizedSeq.hs

index 503544a..55433c2 100644 (file)
@@ -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