From dfa1dc164a15389e00c86b8d97d71646827a74cf Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 17 Mar 2018 22:00:55 -0700
Subject: hlint fixes.

---
 test/Tests/Old.hs              | 1 -
 test/Tests/Readers/Muse.hs     | 2 +-
 test/Tests/Readers/RST.hs      | 2 +-
 test/Tests/Readers/Txt2Tags.hs | 2 +-
 test/Tests/Writers/RST.hs      | 2 +-
 5 files changed, 4 insertions(+), 5 deletions(-)

(limited to 'test')

diff --git a/test/Tests/Old.hs b/test/Tests/Old.hs
index b82251a56..ed4dcc076 100644
--- a/test/Tests/Old.hs
+++ b/test/Tests/Old.hs
@@ -286,4 +286,3 @@ findDynlibDir :: [FilePath] -> Maybe FilePath
 findDynlibDir []           = Nothing
 findDynlibDir ("build":xs) = Just $ joinPath (reverse xs) </> "build"
 findDynlibDir (_:xs)       = findDynlibDir xs
-
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 7cb220f03..89dbbc345 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -175,7 +175,7 @@ tests =
       , "Class tag without name" =: "<class>foobar</class>" =?> para (spanWith ("", [], []) "foobar")
 
       -- <em> tag should match with the last </em> tag, not verbatim one
-      , "Nested \"</em>\" inside em tag" =: "<em>foo<verbatim></em></verbatim>bar</em>" =?> para (emph ("foo</em>bar"))
+      , "Nested \"</em>\" inside em tag" =: "<em>foo<verbatim></em></verbatim>bar</em>" =?> para (emph "foo</em>bar")
 
       , testGroup "Links"
         [ "Link without description" =:
diff --git a/test/Tests/Readers/RST.hs b/test/Tests/Readers/RST.hs
index 3753fbf12..305c7060b 100644
--- a/test/Tests/Readers/RST.hs
+++ b/test/Tests/Readers/RST.hs
@@ -184,6 +184,6 @@ tests = [ "line block with blank line" =:
             , ".. [1]"
             , "   bar"
             ] =?>
-              para ("foo" <> (note $ para "bar"))
+              para ("foo" <> note (para "bar"))
           ]
         ]
diff --git a/test/Tests/Readers/Txt2Tags.hs b/test/Tests/Readers/Txt2Tags.hs
index 435d983a1..e3646e95e 100644
--- a/test/Tests/Readers/Txt2Tags.hs
+++ b/test/Tests/Readers/Txt2Tags.hs
@@ -143,7 +143,7 @@ tests =
 
       , "Header with label" =:
           "= header =[label]" =?>
-            headerWith ("label", [], []) 1 ("header")
+            headerWith ("label", [], []) 1 "header"
 
       , "Invalid header, mismatched delimiters" =:
           "== header =" =?>
diff --git a/test/Tests/Writers/RST.hs b/test/Tests/Writers/RST.hs
index 884281af2..e54ce4737 100644
--- a/test/Tests/Writers/RST.hs
+++ b/test/Tests/Writers/RST.hs
@@ -61,7 +61,7 @@ tests = [ testGroup "rubrics"
             -- http://docutils.sourceforge.net/docs/ref/rst/restructuredtext.html#inline-markup
             strong (space <> str "text" <> space <> space) =?> "**text**"
           , "single space stripped" =:
-            strong (space) =?> ""
+            strong space =?> ""
           ]
         , testGroup "headings"
           [ "normal heading" =:
-- 
cgit v1.2.3