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