aboutsummaryrefslogtreecommitdiff
path: root/tests/Tests/Readers/Odt.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Tests/Readers/Odt.hs')
-rw-r--r--tests/Tests/Readers/Odt.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/Tests/Readers/Odt.hs b/tests/Tests/Readers/Odt.hs
index cd764dd62..c4fc6fcc1 100644
--- a/tests/Tests/Readers/Odt.hs
+++ b/tests/Tests/Readers/Odt.hs
@@ -41,11 +41,11 @@ newtype NoNormPandoc = NoNormPandoc {unNoNorm :: Pandoc}
deriving ( Show )
instance ToString NoNormPandoc where
- toString d = writeNative def{ writerStandalone = s } $ toPandoc d
+ toString d = writeNative def{ writerTemplate = s } $ toPandoc d
where s = case d of
NoNormPandoc (Pandoc (Meta m) _)
- | M.null m -> False
- | otherwise -> True
+ | M.null m -> Nothing
+ | otherwise -> Just "" -- need this for Meta output
instance ToPandoc NoNormPandoc where
toPandoc = unNoNorm