Remove unused symbol parser

'symbol' had a different type for parsec/trifecta and
wasn't used anywhere.
This commit is contained in:
Benno Fünfstück 2014-08-03 16:16:04 +02:00
parent bc71229ab0
commit 2b186aed67
1 changed files with 0 additions and 5 deletions

View File

@ -49,9 +49,6 @@ reserved = P.reserved lexer
reservedOp :: String -> Parser ()
reservedOp = P.reservedOp lexer
symbol :: String -> Parser Text
symbol str = pack <$> P.symbol lexer str
decimal :: Parser Integer
decimal = read <$> some digit
@ -92,8 +89,6 @@ reservedOp = reserved
-----------------------------------------------------------
-- White space & symbols
-----------------------------------------------------------
symbol :: (CharParsing m, Monad m) => String -> m String
symbol name = lexeme (string name)
lexeme :: (CharParsing m, Monad m) => m b -> m b
lexeme p = do{ x <- p; whiteSpace; return x }