diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-10-25 22:35:35 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-10-25 22:35:35 -0700 |
| commit | e752e3d3c7ab2afff60d0cc9775ea057b4025739 (patch) | |
| tree | dd1de4edc7b324866435d5593e847526599f3517 /src/Text | |
| parent | 3e3854fd4fbe84ec1750f7ce7e81a2a375abf41b (diff) | |
| download | pandoc-e752e3d3c7ab2afff60d0cc9775ea057b4025739.tar.gz | |
Groff tokenizer: handle `\s+2`, etc.
Diffstat (limited to 'src/Text')
| -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 |