@@ -40,13 +40,13 @@ import qualified Data.Text as T
40data FastSet = FastSet {
40data FastSet = FastSet {
41 table :: {-# UNPACK #-} !(A.UArray Int Int)
41 table :: {-# UNPACK #-} !(A.UArray Int Int)
42 , mask :: {-# UNPACK #-} !Int
42 , mask :: {-# UNPACK #-} !Int
43− } deriving (Show)
43+ }
45data Entry = Entry {
45data Entry = Entry {
46 key :: {-# UNPACK #-} !Char
46 key :: {-# UNPACK #-} !Char
47 , initialIndex :: {-# UNPACK #-} !Int
47 , initialIndex :: {-# UNPACK #-} !Int
48 , index :: {-# UNPACK #-} !Int
48 , index :: {-# UNPACK #-} !Int
49− } deriving (Show)
49+ }
51offset :: Entry -> Int
51offset :: Entry -> Int
52offset e = index e - initialIndex e
52offset e = index e - initialIndex e