module Text.Parser.Parsec () where
import Text.Parsec.Char
import Text.Parsec.Combinator
import Text.Parsec.Prim
import qualified Text.Parser.Char as P
import qualified Text.Parser.Combinators as P
import qualified Text.Parser.LookAhead as P
import qualified Text.Parser.Token as P
instance (Stream s m t, Show t) => P.Parsing (ParsecT s u m) where
try = try
(<?>) = (P.<?>)
skipMany = skipMany
skipSome = skipMany1
unexpected = unexpected
eof = eof
notFollowedBy = notFollowedBy
instance (Stream s m t, Show t) => P.LookAheadParsing (ParsecT s u m) where
lookAhead = lookAhead
instance Stream s m Char => P.CharParsing (ParsecT s u m) where
satisfy = satisfy
char = char
notChar c = satisfy (/= c)
anyChar = anyChar
string = string
instance Stream s m Char => P.TokenParsing (ParsecT s u m)