From 70eeeb82b5956387e5fd4002353655e8199edf62 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Mon, 24 Jun 2013 21:18:21 -0700
Subject: Fixed regression with RTF table of contents.

---
 src/Text/Pandoc/Writers/RTF.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs
index cc59be4be..9d22b8ee1 100644
--- 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
-- 
cgit v1.2.3