diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Man.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs index 9ef20be0e..169bd03c8 100644 --- a/src/Text/Pandoc/Readers/Man.hs +++ b/src/Text/Pandoc/Readers/Man.hs @@ -337,7 +337,12 @@ lexMacro = do plainArg = do -- TODO skip initial spaces, then parse many linePart til a spaec skipMany spacetab - many (macroArg <|> esc <|> regularText) + many (macroArg <|> esc <|> regularText <|> unescapedQuote) + where unescapedQuote = do + char '"' + fonts <- currentFont + return $ RoffStr ("\"", fonts) + quotedArg :: PandocMonad m => ManLexer m [LinePart] quotedArg = do |