diff options
Diffstat (limited to 'tests/Tests/Writers')
| -rw-r--r-- | tests/Tests/Writers/Docbook.hs | 2 | ||||
| -rw-r--r-- | tests/Tests/Writers/LaTeX.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/Tests/Writers/Docbook.hs b/tests/Tests/Writers/Docbook.hs index 0e80bcc05..f2a1e9d7b 100644 --- a/tests/Tests/Writers/Docbook.hs +++ b/tests/Tests/Writers/Docbook.hs @@ -238,7 +238,7 @@ tests = [ testGroup "line blocks" docbookTopLevelDiv :: (ToPandoc a) => Division -> a -> String docbookTopLevelDiv division = - docbookWithOpts def{ writerTopLevelDivision = division } + docbookWithOpts def{ writerTopLevelDivision = Just division } in [ test (docbookTopLevelDiv Section) "sections as top-level" $ headers =?> unlines [ "<sect1>" diff --git a/tests/Tests/Writers/LaTeX.hs b/tests/Tests/Writers/LaTeX.hs index 28d6618c1..fb230e89a 100644 --- a/tests/Tests/Writers/LaTeX.hs +++ b/tests/Tests/Writers/LaTeX.hs @@ -90,11 +90,11 @@ tests = [ testGroup "code blocks" latexTopLevelDiv :: (ToPandoc a) => Division -> a -> String latexTopLevelDiv division = - latexWithOpts def{ writerTopLevelDivision = division } + latexWithOpts def{ writerTopLevelDivision = Just division } beamerTopLevelDiv :: (ToPandoc a) => Division -> a -> String beamerTopLevelDiv division = - latexWithOpts def { writerTopLevelDivision = division + latexWithOpts def { writerTopLevelDivision = Just division , writerBeamer = True } in [ test (latexTopLevelDiv Section) "sections as top-level" $ headers =?> |