diff options
Diffstat (limited to 'Text/Pandoc/Writers/RST.hs')
| -rw-r--r-- | Text/Pandoc/Writers/RST.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/RST.hs b/Text/Pandoc/Writers/RST.hs index bfb460cf5..d63b04bf4 100644 --- a/Text/Pandoc/Writers/RST.hs +++ b/Text/Pandoc/Writers/RST.hs @@ -178,7 +178,7 @@ blockToRST (Header level inlines) = do let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1) let border = text $ replicate headerLength headerChar return $ contents $+$ border <> text "\n" -blockToRST (CodeBlock str) = do +blockToRST (CodeBlock _ str) = do tabstop <- get >>= (return . writerTabStop . stOptions) return $ (text "::\n") $+$ (nest tabstop $ vcat $ map text (lines str)) <> text "\n" |