From e536c4d9c9c4ff73213dc0273654ea3e1916f22e Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 6 Dec 2017 19:38:25 +0300 Subject: hlint Muse reader and tests --- test/Tests/Readers/Muse.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'test/Tests/Readers') 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
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" =: -- cgit v1.2.3