diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index e9710f95e..1f0e40ecf 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -113,6 +113,7 @@ pandocToHtml opts (Pandoc meta blocks) = do metadata <- metaToJSON (fmap renderHtml . blockListToHtml opts) (fmap renderHtml . inlineListToHtml opts) + (writerVariables opts) meta let authsMeta = map stringify $ docAuthors meta let dateMeta = stringify $ docDate meta @@ -175,8 +176,7 @@ pandocToHtml opts (Pandoc meta blocks) = do defField "revealjs-url" ("reveal.js" :: String) $ defField "s5-url" ("s5/default" :: String) $ defField "html5" (writerHtml5 opts) $ - foldl (\acc (x,y) -> setField x y acc) - metadata (writerVariables opts) + metadata return (thebody, context) inTemplate :: TemplateTarget a |