mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-11-23 19:38:05 +03:00
Code Issues Projects Releases Wiki Activity

removed redundant labels in ‘Text.Megaparsec.Char’

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Text/Megaparsec/Char.hs
View File

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