aboutsummaryrefslogtreecommitdiff
path: root/test/Tests/Readers
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-12-06 19:38:25 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-12-06 19:38:25 +0300
commite536c4d9c9c4ff73213dc0273654ea3e1916f22e (patch)
tree944c84c1fd2440af27c42c0c8572bf90e3910295 /test/Tests/Readers
parent6fd3cdac46f916b74d88aab696dc81c93581c162 (diff)
downloadpandoc-e536c4d9c9c4ff73213dc0273654ea3e1916f22e.tar.gz
hlint Muse reader and tests
Diffstat (limited to 'test/Tests/Readers')
-rw-r--r--test/Tests/Readers/Muse.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index a25b41937..28db0191b 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -116,7 +116,7 @@ tests =
, "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break")
, test emacsMuse "Non-breaking space"
- ("Foo~~bar" =?> para ("Foo\160bar"))
+ ("Foo~~bar" =?> para "Foo\160bar")
, testGroup "Code markup"
[ "Code" =: "=foo(bar)=" =?> para (code "foo(bar)")
@@ -457,15 +457,15 @@ tests =
, testGroup "Directives"
[ "Title" =:
"#title Document title" =?>
- let titleInline = toList $ "Document title"
- meta = setMeta "title" (MetaInlines titleInline) $ nullMeta
+ let titleInline = toList "Document title"
+ meta = setMeta "title" (MetaInlines titleInline) nullMeta
in Pandoc meta mempty
-- Emacs Muse documentation says that "You can use any combination
-- of uppercase and lowercase letters for directives",
-- but also allows '-', which is not documented, but used for disable-tables.
, test emacsMuse "Disable tables"
("#disable-tables t" =?>
- Pandoc (setMeta "disable-tables" (MetaInlines $ toList "t") $ nullMeta) mempty)
+ Pandoc (setMeta "disable-tables" (MetaInlines $ toList "t") nullMeta) mempty)
]
, testGroup "Anchors"
[ "Anchor" =: