@@ -23,14 +23,6 @@ import Text.ParserCombinators.Parsec.Combinator hiding (optional)
2323import Text.ParserCombinators.Parsec.Error
2424import Text.ParserCombinators.Parsec.Prim hiding ((<|>), many)
2525
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−
3426unichar :: Parser Char
3527unichar = chr . fst . head . readHex <$> many1 hexDigit
3628