definition module yard from StdString import class toString from Data.Either import :: Either from StdClass import class Eq from Data.Functor import class Functor from Control.Monad import class Monad from Control.Applicative import class Applicative, class Alternative :: Error = ParseError | LexError String | Expected [String] Int :: Parser a b = Parser ([a] -> (Either Error b, [a])) instance Functor (Parser a) instance Applicative (Parser a) instance Monad (Parser a) instance Alternative (Parser a) instance toString Error runParser :: (Parser a b) [a] -> (Either Error b, [a]) () :: (Parser a b) (String, Int) -> Parser a b fail :: Parser a b top :: Parser a a satisfy :: (a -> Bool) -> Parser a a item :: a -> Parser a a | Eq a list :: [a] -> Parser a [a] | Eq a