Fixed regression with RTF table of contents.

2013-06-24 21:18:21 -07:00 · 2013-06-24 21:18:21 -07:00 · 70eeeb82b5
commit 70eeeb82b5
parent 08631ef1a3
1 changed files with 4 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/RTF.hs
+++ b/src/Text/Pandoc/Writers/RTF.hs
@ -84,7 +84,10 @@ writeRTF options (Pandoc meta blocks) =
      isTOCHeader _ = False
      context = setField "body" body
              $ setField "spacer" spacer
-              $ setField "toc" (tableOfContents $ filter isTOCHeader blocks)
+              $ (if writerTableOfContents options
+                    then setField "toc"
+                          (tableOfContents $ filter isTOCHeader blocks)
+                    else id)
              $ foldl (\acc (x,y) -> setField x y acc)
                   metadata (writerVariables options)
  in  if writerStandalone options