@@ -30,16 +30,16 @@ tests = [
3030 =?> (para $ emph "bar")
3131 , "BoldItalic" =:
3232 ".BI foo bar"
33− =?> (para $ strong $ emph $ str "foo bar")
33+ =?> (para $ strong $ emph $ text "foo bar")
3434 , "H1" =:
3535 ".SH The header\n"
36− =?> header 2 (str "The" <> space <> str "header")
36+ =?> header 2 (text "The header")
3737 , "H2" =:
3838 ".SS \"The header 2\""
39− =?> header 3 (str "The header 2")
39+ =?> header 3 (text "The header 2")
4040 , "Macro args" =:
4141 ".B \"single arg with \"\"Q\"\"\""
42− =?> (para $ strong $ str "single arg with \"Q\"")
42+ =?> (para $ strong $ text "single arg with \"Q\"")
4343 , "comment" =:
4444 ".\\\"bla\naaa"
4545 =?> (para $ space <> str "aaa")
@@ -56,10 +56,10 @@ tests = [
5656 =?> (para $ str "ab")
5757 , "replace" =:
5858 "\\-\\ \\\\\\[lq]\\[rq]\\[em]\\[en]\\*(lq\\*(rq"
59− =?> (para $ str "- \\“”—–“”")
59+ =?> (para $ text "- \\“”—–“”")
6060 , "replace2" =:
6161 "\\t\\e\\`\\^\\|\\'"
62− =?> (para $ str "\t\\` `")
62+ =?> (para $ text "\t\\` `")
6363 ],
6464 testGroup "Lists" [
6565 "bullet" =: