From bec2023265ebe1dc5bc3ab410271a7df3c9e65ca Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 4 Sep 2018 11:00:44 +0300
Subject: hlint Muse writer tests

---
 test/Tests/Writers/Muse.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Writers/Muse.hs b/test/Tests/Writers/Muse.hs
index f44097f9e..29f771cf5 100644
--- a/test/Tests/Writers/Muse.hs
+++ b/test/Tests/Writers/Muse.hs
@@ -275,7 +275,7 @@ tests = [ testGroup "block elements"
                unlines [ "#bar"
                        , "** Foo"
                       ]
-            , "empty heading" =: header 4 (mempty) =?> "**** <verbatim></verbatim>"
+            , "empty heading" =: header 4 mempty =?> "**** <verbatim></verbatim>"
             ]
           , "horizontal rule" =: horizontalRule =?> "----"
           , "escape horizontal rule" =: para (text "----") =?> "<verbatim></verbatim>----"
@@ -341,8 +341,8 @@ tests = [ testGroup "block elements"
             , "do not escape colon" =: str ":" =?> ":"
             , "escape - to avoid accidental unordered lists" =: text " - foo" =?> "<verbatim></verbatim> - foo"
             , "escape - inside a list to avoid accidental nested unordered lists" =:
-              bulletList [ (para $ text "foo") <>
-                           (para $ text "- bar")
+              bulletList [ para (text "foo") <>
+                           para (text "- bar")
                          ] =?>
               unlines [ " - foo"
                       , ""
@@ -469,11 +469,11 @@ tests = [ testGroup "block elements"
                               =?> "<class name=\"foobar\">Some text</class>"
           , "span without class" =: spanWith ("",[],[]) (text "Some text")
                                  =?> "<class>Some text</class>"
-          , "span with anchor" =: spanWith ("anchor", [], []) (mempty) <> (text "Foo bar")
+          , "span with anchor" =: spanWith ("anchor", [], []) mempty <> text "Foo bar"
                                =?> "#anchor Foo bar"
-          , "empty span with anchor" =: spanWith ("anchor", [], []) (mempty)
+          , "empty span with anchor" =: spanWith ("anchor", [], []) mempty
                                      =?> "#anchor"
-          , "empty span without class and anchor" =: spanWith ("", [], []) (mempty)
+          , "empty span without class and anchor" =: spanWith ("", [], []) mempty
                                                   =?> "<class></class>"
           , "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
                                          =?> "#anchor <class name=\"foo\">bar</class>"
-- 
cgit v1.2.3