diff options
Diffstat (limited to 'tests/Tests/Readers/Odt.hs')
-rw-r--r-- | tests/Tests/Readers/Odt.hs | 6 |
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 |