From e752e3d3c7ab2afff60d0cc9775ea057b4025739 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 25 Oct 2018 22:35:35 -0700 Subject: Groff tokenizer: handle `\s+2`, etc. --- src/Text/Pandoc/Readers/Groff.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Groff.hs b/src/Text/Pandoc/Readers/Groff.hs index e0b9d9c94..2e335362f 100644 --- a/src/Text/Pandoc/Readers/Groff.hs +++ b/src/Text/Pandoc/Readers/Groff.hs @@ -245,7 +245,7 @@ escape = do -- \s-1 \s0 escFontSize :: PandocMonad m => GroffLexer m [LinePart] escFontSize = do - let sign = option "" $ count 1 (oneOf "+-") + let sign = option "" $ ("-" <$ char '-' <|> "" <$ char '+') let toFontSize xs = case safeRead xs of Nothing -> mzero -- cgit v1.2.3