@@ -81,8 +81,7 @@ fromList s = FastSet (AB.listArray (0, length interleaved - 1) interleaved) mask
8181 resolveCollisions .
8282 sortBy (compare `on` initialIndex) $
8383 zipWith (\c i -> Entry c i i) s' indeces
84− interleaved = concatMap (\(c, i) -> [c,i]) $ zip (map (fromEnum . key) entries) (map initialIndex entries)
85−
84+ interleaved = concatMap (\e -> [fremEnum $ key e, initialIndex e]) entries
8685set :: T.Text -> FastSet
8786set = fromList . T.unpack
8887