Fix underline in RTF writer.

It should be `\ul` not `\pnul`.
This commit is contained in:
John MacFarlane 2020-05-14 09:44:44 -07:00
parent b3cfdc2c7a
commit 8c026d5ec0

View file

@ -353,7 +353,7 @@ inlineToRTF (Emph lst) = do
return $ "{\\i " <> contents <> "}"
inlineToRTF (Underline lst) = do
contents <- inlinesToRTF lst
return $ "{\\pnul " <> contents <> "}"
return $ "{\\ul " <> contents <> "}"
inlineToRTF (Strong lst) = do
contents <- inlinesToRTF lst
return $ "{\\b " <> contents <> "}"