mirror of
https://github.com/mrkkrp/megaparsec.git
synced 2024-11-23 19:38:05 +03:00
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:
parent
2b6df377ef
commit
9e1cac87b8
@ -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.
|
||||
--
|
||||
|
Loading…
Reference in New Issue
Block a user