Commit 1fe5c891 authored by Simon Marlow's avatar Simon Marlow Committed by Simon Marlow
Browse files

UNPACK the size field of SizedSeq

parent 7f0f1d7f
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment