diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-27 22:42:55 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-27 22:42:55 -0700 |
commit | 899a65b7d157193bdcb05bd4027a9e7a7fc3c9cc (patch) | |
tree | 7d25a754ed93c137ac6fe1417bfba76de024d5e6 /src/Text/Pandoc/Writers/MediaWiki.hs | |
parent | 9ab60a4d1588cfed153ca9efea9c9546bc0e041b (diff) |
Writers: Use defField for defaults.
This way explicitly specified fields not overridden.
Fixes a problem e.g. with specifying a documentclass via
the command line using -V.
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index c0f141780..7651c652c 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -64,8 +64,8 @@ pandocToMediaWiki opts (Pandoc meta blocks) = do then "\n<references />" else "" let main = body ++ notes - let context = setField "body" main - $ setField "toc" (writerTableOfContents opts) + let context = defField "body" main + $ defField "toc" (writerTableOfContents opts) $ foldl (\acc (x,y) -> setField x y acc) metadata (writerVariables opts) if writerStandalone opts |