@@ -245,7 +245,7 @@ escape = do
245-- \s-1 \s0
245-- \s-1 \s0
246escFontSize :: PandocMonad m => GroffLexer m [LinePart]
246escFontSize :: PandocMonad m => GroffLexer m [LinePart]
247escFontSize = do
247escFontSize = do
248− let sign = option "" $ count 1 (oneOf "+-")
248+ let sign = option "" $ ("-" <$ char '-' <|> "" <$ char '+')
249 let toFontSize xs =
249 let toFontSize xs =
250 case safeRead xs of
250 case safeRead xs of
251 Nothing -> mzero
251 Nothing -> mzero