From 81b0081028d3c497ef2a4e6edd4df053da04d89c Mon Sep 17 00:00:00 2001 From: mrkkrp Date: Fri, 16 Oct 2015 15:57:46 +0600 Subject: [PATCH] =?UTF-8?q?add=20missing=20=E2=80=98L.=E2=80=99=20in=20doc?= =?UTF-8?q?-string=20of=20=E2=80=98signed=E2=80=99?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Text/Megaparsec/Lexer.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Text/Megaparsec/Lexer.hs b/Text/Megaparsec/Lexer.hs index 56be9bf..c7baafa 100644 --- a/Text/Megaparsec/Lexer.hs +++ b/Text/Megaparsec/Lexer.hs @@ -273,7 +273,7 @@ number = (Right <$> try float) <|> (Left <$> integer) "number" -- -- > lexeme = L.lexeme spaceConsumer -- > integer = lexeme L.integer --- > signedInteger = signed spaceConsumer integer +-- > signedInteger = L.signed spaceConsumer integer signed :: (MonadParsec s m Char, Num a) => m () -> m a -> m a signed spc p = ($) <$> option id (lexeme spc sign) <*> p