@@ -33,10 +33,9 @@ import Data.Function (on)
3333import qualified Data.Array.Base as AB
3434import qualified Data.Array.Unboxed as A
3535import qualified Data.Text as T
36−import Test.QuickCheck hiding ((.&.))
3736
38−data FastSet = FastSet {keys :: !(A.UArray Int Char),
39− initialOffsets :: !(A.UArray Int Int),
37+data FastSet = FastSet {keys :: {-# UNPACK #-} !(A.UArray Int Char),
38+ initialOffsets :: {-# UNPACK #-} !(A.UArray Int Int),
4039 mask :: {-# UNPACK #-} !Int}
4140 deriving (Eq, Ord, Show)
4241