@@ -275,7 +275,7 @@ tests = [ testGroup "block elements"
275 unlines [ "#bar"
275 unlines [ "#bar"
276 , "** Foo"
276 , "** Foo"
278− , "empty heading" =: header 4 (mempty) =?> "**** <verbatim></verbatim>"
278+ , "empty heading" =: header 4 mempty =?> "**** <verbatim></verbatim>"
280 , "horizontal rule" =: horizontalRule =?> "----"
280 , "horizontal rule" =: horizontalRule =?> "----"
281 , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
281 , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
@@ -341,8 +341,8 @@ tests = [ testGroup "block elements"
341 , "do not escape colon" =: str ":" =?> ":"
341 , "do not escape colon" =: str ":" =?> ":"
342 , "escape - to avoid accidental unordered lists" =: text " - foo" =?> "<verbatim></verbatim> - foo"
342 , "escape - to avoid accidental unordered lists" =: text " - foo" =?> "<verbatim></verbatim> - foo"
343 , "escape - inside a list to avoid accidental nested unordered lists" =:
343 , "escape - inside a list to avoid accidental nested unordered lists" =:
344− bulletList [ (para $ text "foo") <>
344+ bulletList [ para (text "foo") <>
345− (para $ text "- bar")
345+ para (text "- bar")
347 unlines [ " - foo"
347 unlines [ " - foo"
@@ -469,11 +469,11 @@ tests = [ testGroup "block elements"
469 =?> "<class name=\"foobar\">Some text</class>"
469 =?> "<class name=\"foobar\">Some text</class>"
470 , "span without class" =: spanWith ("",[],[]) (text "Some text")
470 , "span without class" =: spanWith ("",[],[]) (text "Some text")
471 =?> "<class>Some text</class>"
471 =?> "<class>Some text</class>"
472− , "span with anchor" =: spanWith ("anchor", [], []) (mempty) <> (text "Foo bar")
472+ , "span with anchor" =: spanWith ("anchor", [], []) mempty <> text "Foo bar"
473 =?> "#anchor Foo bar"
473 =?> "#anchor Foo bar"
474− , "empty span with anchor" =: spanWith ("anchor", [], []) (mempty)
474+ , "empty span with anchor" =: spanWith ("anchor", [], []) mempty
475 =?> "#anchor"
475 =?> "#anchor"
476− , "empty span without class and anchor" =: spanWith ("", [], []) (mempty)
476+ , "empty span without class and anchor" =: spanWith ("", [], []) mempty
477 =?> "<class></class>"
477 =?> "<class></class>"
478 , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
478 , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
479 =?> "#anchor <class name=\"foo\">bar</class>"
479 =?> "#anchor <class name=\"foo\">bar</class>"