@@ -40,13 +40,13 @@ import qualified Data.Text as T
4040data FastSet = FastSet {
4141 table :: {-# UNPACK #-} !(A.UArray Int Int)
4242 , mask :: {-# UNPACK #-} !Int
43− } deriving (Show)
43+ }
4444
4545data Entry = Entry {
4646 key :: {-# UNPACK #-} !Char
4747 , initialIndex :: {-# UNPACK #-} !Int
4848 , index :: {-# UNPACK #-} !Int
49− } deriving (Show)
49+ }
5050
5151offset :: Entry -> Int
5252offset e = index e - initialIndex e