diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-12-17 11:59:29 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-12-17 11:59:52 -0800 |
| commit | d0918627cafff1ce96c51df9963e3a25ce149cce (patch) | |
| tree | 844221f3fe361c640388ee8f1976f889031f698c /src/Text/Pandoc/Writers/RTF.hs | |
| parent | 80728c8b3122db1d7caedcce66310fb1924f5a91 (diff) | |
| download | pandoc-d0918627cafff1ce96c51df9963e3a25ce149cce.tar.gz | |
Improved --toc generation.
Diffstat (limited to 'src/Text/Pandoc/Writers/RTF.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RTF.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index 08f0df0f8..6a40f75e2 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -103,8 +103,7 @@ writeRTF options doc = do (fmap literal . inlinesToRTF) meta' body <- blocksToRTF 0 AlignDefault blocks - toc <- blocksToRTF 0 AlignDefault - [toTableOfContents options $ filter isHeaderBlock blocks] + toc <- blocksToRTF 0 AlignDefault [toTableOfContents options blocks] let context = defField "body" body $ defField "spacer" spacer $(if writerTableOfContents options |