diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/RTF.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RTF.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index a146d2133..3830be705 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -152,10 +152,10 @@ rtfHeader headerText (Meta title authors date) = authorstext = if null authors then "" else rtfPar 0 0 AlignCenter (" " ++ (intercalate "\\" $ - map stringToRTF authors)) - datetext = if date == "" + map inlineListToRTF authors)) + datetext = if null date then "" - else rtfPar 0 0 AlignCenter (" " ++ stringToRTF date) in + else rtfPar 0 0 AlignCenter (" " ++ inlineListToRTF date) in let spacer = if null (titletext ++ authorstext ++ datetext) then "" else rtfPar 0 0 AlignDefault "" in |