diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-08 08:40:53 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-08 08:40:53 -0800 |
| commit | 64304a2165fa9600cdab1a7e00fd8faa6047e8c4 (patch) | |
| tree | 65a31e53202ce2d806d96ba169c711ebbd59ad69 /src/Text/Pandoc/Writers/RST.hs | |
| parent | 142c29d90827f81bcccad35ed39f3669298b8961 (diff) | |
| download | pandoc-64304a2165fa9600cdab1a7e00fd8faa6047e8c4.tar.gz | |
Don't wrap headers in markdown or rst.
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index db2ad0dfb..d6e5b5c9e 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -157,7 +157,7 @@ blockToRST (Header level inlines) = do contents <- inlineListToRST inlines let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1) let border = text $ replicate (offset contents) headerChar - return $ contents $$ border $$ blankline + return $ nowrap $ contents $$ border $$ blankline blockToRST (CodeBlock (_,classes,_) str) = do opts <- stOptions <$> get let tabstop = writerTabStop opts |