module Text.ParserCombinators.Poly.Plain
(
Parser(P)
, Result(..)
, runParser
, next
, eof
, satisfy
, satisfyMsg
, onFail
, reparse
, module Text.ParserCombinators.Poly.Base
, module Control.Applicative
) where
import Text.ParserCombinators.Poly.Base
import Text.ParserCombinators.Poly.Result
import Text.ParserCombinators.Poly.Parser
import Control.Applicative
runParser :: Parser t a -> [t] -> (Either String a, [t])
runParser :: Parser t a -> [t] -> (Either String a, [t])
runParser (P [t] -> Result [t] a
p) = Result [t] a -> (Either String a, [t])
forall z a. Result z a -> (Either String a, z)
resultToEither (Result [t] a -> (Either String a, [t]))
-> ([t] -> Result [t] a) -> [t] -> (Either String a, [t])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [t] -> Result [t] a
p