diff options
| author | Simon Marlow <smarlow@fb.com> | 2016-07-21 05:47:47 -0700 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2016-07-22 13:56:42 +0100 |
| commit | 1fe5c8916a2bdf90ed2d9c70f900642b56650592 (patch) | |
| tree | ce4e66f4283b771b80624035d48a34092d0b805c /libraries/ghci | |
| parent | 7f0f1d7f7d798e86b3d599d61dbc5ffc71afeb52 (diff) | |
| download | haskell-1fe5c8916a2bdf90ed2d9c70f900642b56650592.tar.gz | |
UNPACK the size field of SizedSeq
Diffstat (limited to 'libraries/ghci')
| -rw-r--r-- | libraries/ghci/SizedSeq.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/ghci/SizedSeq.hs b/libraries/ghci/SizedSeq.hs index 503544a9ed..55433c2fbd 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 |