Update FastSet.hs
commit585c971cd95d4d2974d0fd3440b8eb7b50964c91
authorSeanRBurton <burton.seanr@gmail.com>
dateTue 2 Dec 2014, 14:19 (12 years ago)
parentf1c18e6
Data/Attoparsec/Text/FastSet.hs+1
@@ -82,6 +82,7 @@ fromList s = FastSet (AB.listArray (0, length interleaved - 1) interleaved) mask
8282 sortBy (compare `on` initialIndex) $
8383 zipWith (\c i -> Entry c i i) s' indeces
8484 interleaved = concatMap (\e -> [fromEnum $ key e, initialIndex e]) entries
85+
8586set :: T.Text -> FastSet
8687set = fromList . T.unpack
8788