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 9d22b8ee1..66a2238c7 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -82,10 +82,10 @@ writeRTF options (Pandoc meta blocks) = body = concatMap (blockToRTF 0 AlignDefault) blocks isTOCHeader (Header lev _ _) = lev <= writerTOCDepth options isTOCHeader _ = False - context = setField "body" body - $ setField "spacer" spacer + context = defField "body" body + $ defField "spacer" spacer $ (if writerTableOfContents options - then setField "toc" + then defField "toc" (tableOfContents $ filter isTOCHeader blocks) else id) $ foldl (\acc (x,y) -> setField x y acc) |