on master help sign in
Bring Arsec up to date
25f65e6Bryan O'Sullivan
.hgignore+2
@@ -10,3 +10,5 @@ syntax: glob
10cabal-dev
10cabal-dev
11cabal.sandbox.config
11cabal.sandbox.config
12\.cabal-sandbox
12\.cabal-sandbox
13+scripts/CaseFolding.txt
14+scripts/SpecialCasing.txt
scripts/Arsec.hs−8
@@ -23,14 +23,6 @@ import Text.ParserCombinators.Parsec.Combinator hiding (optional)
23import Text.ParserCombinators.Parsec.Error
23import Text.ParserCombinators.Parsec.Error
24import Text.ParserCombinators.Parsec.Prim hiding ((<|>), many)
24import Text.ParserCombinators.Parsec.Prim hiding ((<|>), many)
25
25
26−instance Applicative (GenParser s a) where
27− pure = return
28− (<*>) = ap
29−
30−instance Alternative (GenParser s a) where
31− empty = mzero
32− (<|>) = mplus
33−
34unichar :: Parser Char
26unichar :: Parser Char
35unichar = chr . fst . head . readHex <$> many1 hexDigit
27unichar = chr . fst . head . readHex <$> many1 hexDigit
36
28