aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/RST.hs
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-06-20 22:43:48 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-06-20 22:43:48 +0200
commitc349f0b0baef5866041b6668fff5bbb16f0002f9 (patch)
tree09f8bf2c95b3e66c1eff98ef9756c6503a2032b8 /src/Text/Pandoc/Writers/RST.hs
parent21c4281b13bf2d72012139ecc5c16cf7cae21de1 (diff)
downloadpandoc-c349f0b0baef5866041b6668fff5bbb16f0002f9.tar.gz
Writers: adjusted for renderTemplate' changes.
Now we raise a proper error on template failure.
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
-rw-r--r--src/Text/Pandoc/Writers/RST.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index 9c0693b0f..019c8335d 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -108,7 +108,7 @@ pandocToRST (Pandoc meta blocks) = do
$ metadata
case writerTemplate opts of
Nothing -> return main
- Just tpl -> return $ renderTemplate' tpl context
+ Just tpl -> renderTemplate' tpl context
where
normalizeHeadings lev (Header l a i:bs) =
Header lev a i:normalizeHeadings (lev+1) cont ++ normalizeHeadings lev bs'