Update FastSet.hs
commitee63326440927f4d58e66d0e7034f05a88a5deab
authorSeanRBurton <burton.seanr@gmail.com>
dateSun 30 Nov 2014, 00:17 (12 years ago)
parent2bc976c
Data/Attoparsec/Text/FastSet.hs+1−1
@@ -76,7 +76,7 @@ fromList s = FastSet (AB.listArray (0, length interleaved - 1) interleaved) mask
7676 where s' = nub $ sort s
7777 l = length s'
7878 mask' = nextPowerOf2 ((5 * l) `div` 4) - 1
79− indeces = map (\c -> fastHash c .&. mask') s'
79+ indeces = map ((.&. mask') . fastHash) s'
8080 entries = pad mask' .
8181 resolveCollisions .
8282 sortBy (compare `on` initialIndex) $