diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Groff.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |