From 9e1cac87b8ea882f677625f6b6f7e07ee2aeaa0b Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Fri, 16 Oct 2015 15:01:35 +0600 Subject: [PATCH] =?UTF-8?q?removed=20redundant=20labels=20in=20=E2=80=98Te?= =?UTF-8?q?xt.Megaparsec.Char=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This is handled by ‘showToken’ in ‘char’ anyway, so there is no need to label these things manually. --- Text/Megaparsec/Char.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Text/Megaparsec/Char.hs b/Text/Megaparsec/Char.hs index b8b324a..c69e8f0 100644 --- a/Text/Megaparsec/Char.hs +++ b/Text/Megaparsec/Char.hs @@ -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. --