Update FastSet.hs
commitdb11201698d9353623406c59b399c323d8398f95
authorSeanRBurton <burton.seanr@gmail.com>
dateFri 28 Nov 2014, 20:52 (12 years ago)
parentdfe8cdd
Data/Attoparsec/Text/FastSet.hs+1−1
@@ -70,7 +70,7 @@ nextPowerOf2 x = go (x - 1) 1
7070 go y k = go (y .|. (y `shiftR` k)) $ k * 2
7171
7272fastHash :: Char -> Int
73−fastHash c = fromEnum
73+fastHash = fromEnum
7474
7575fromList :: String -> FastSet
7676fromList s = FastSet (arr key) (arr initialOffset) mask'