removed redundant labels in ‘Text.Megaparsec.Char’

This is handled by ‘showToken’ in ‘char’ anyway, so there is no need to
label these things manually.
This commit is contained in:
mrkkrp 2015-10-16 15:01:35 +06:00
parent 2b6df377ef
commit 9e1cac87b8

View File

@ -70,7 +70,7 @@ import Control.Applicative ((<$>), pure)
-- | Parses a newline character.
newline :: MonadParsec s m Char => m Char
newline = char '\n' <?> "newline"
newline = char '\n'
-- | Parses a carriage return character followed by a newline
-- character. Returns sequence of characters parsed.
@ -89,7 +89,7 @@ eol = (pure <$> newline) <|> crlf <?> "end of line"
-- | Parses a tab character.
tab :: MonadParsec s m Char => m Char
tab = char '\t' <?> "tab"
tab = char '\t'
-- | Skips /zero/ or more white space characters.
--