Groff tokenizer: handle `\s+2`, etc.
commite752e3d3c7ab2afff60d0cc9775ea057b4025739
authorJohn MacFarlane <jgm@berkeley.edu>
dateThu 25 Oct 2018, 22:35 (8 years ago)
parent3e3854f
src/Text/Pandoc/Readers/Groff.hs+1−1
@@ -245,7 +245,7 @@ escape = do
245245-- \s-1 \s0
246246escFontSize :: PandocMonad m => GroffLexer m [LinePart]
247247escFontSize = do
248− let sign = option "" $ count 1 (oneOf "+-")
248+ let sign = option "" $ ("-" <$ char '-' <|> "" <$ char '+')
249249 let toFontSize xs =
250250 case safeRead xs of
251251 Nothing -> mzero