diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Texinfo.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Texinfo.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs index 71bad34c1..c2e5eea00 100644 --- a/src/Text/Pandoc/Writers/Texinfo.hs +++ b/src/Text/Pandoc/Writers/Texinfo.hs @@ -76,7 +76,7 @@ pandocToTexinfo options (Pandoc meta blocks) = do metadata <- metaToJSON (fmap (render colwidth) . blockListToTexinfo) (fmap (render colwidth) . inlineListToTexinfo) - meta + (writerVariables options) meta main <- blockListToTexinfo blocks st <- get let body = render colwidth main @@ -86,8 +86,7 @@ pandocToTexinfo options (Pandoc meta blocks) = do $ defField "subscript" (stSubscript st) $ defField "superscript" (stSuperscript st) $ defField "strikeout" (stStrikeout st) - $ foldl (\acc (x,y) -> setField x y acc) - metadata (writerVariables options) + $ metadata if writerStandalone options then return $ renderTemplate' (writerTemplate options) context else return body |