@@ -20,9 +20,15 @@ assertPandoc (Block e) (Pandoc _ [g] ) = e @=? g
2020assertPandoc (Blocks e) (Pandoc _ g ) = e @=? g
2121assertPandoc _ _ = assertFailure "Wrong structure of Pandoc document."
2222
23−latexTest :: String-> String -> Expect -> Test
23+latexTest :: String -> String -> Expect -> Test
2424latexTest = readerTestWithState defaultParserState readLaTeX
2525
26−readerTestWithState :: ParserState -> (ParserState -> String -> Pandoc) -> String -> String -> Expect -> Test
27−readerTestWithState state reader name string exp = testCase name $ exp `assertPandoc` reader state string
26+readerTestWithState :: ParserState
27+ -> (ParserState -> String -> Pandoc)
28+ -> String
29+ -> String
30+ -> Expect
31+ -> Test
32+readerTestWithState state reader name string e =
33+ testCase name $ e `assertPandoc` reader state string
2834