Fix underline in RTF writer.
It should be `\ul` not `\pnul`.
This commit is contained in:
parent
b3cfdc2c7a
commit
8c026d5ec0
1 changed files with 1 additions and 1 deletions
|
@ -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 <> "}"
|
||||
|
|
Loading…
Add table
Reference in a new issue