Changed infix level of testing combinators.

This avoids clash with (<>), which is defined in Data.Monoid
as having infix 6.

src/Tests/Helpers.hs

@@ -79,7 +79,7 @@ vivid s = setSGRCode [SetColor Background Dull Red
                      , SetColor Foreground Vivid White] ++ s
           ++ setSGRCode [Reset]
 
-infix 6 =?>
+infix 5 =?>
 (=?>) :: a -> b -> (a,b)
 x =?> y = (x, y)
 

src/Tests/Readers/LaTeX.hs

@@ -12,7 +12,7 @@ import Data.Monoid (mempty)
 latex :: String -> Pandoc
 latex = readLaTeX defaultParserState
 
-infix 5 =:
+infix 4 =:
 (=:) :: ToString c
      => String -> (String, c) -> Test
 (=:) = test latex

src/Tests/Readers/Markdown.hs

@@ -15,7 +15,7 @@ markdown = readMarkdown defaultParserState{ stateStandalone = True }
 markdownSmart :: String -> Pandoc
 markdownSmart = readMarkdown defaultParserState{ stateSmart = True }
 
-infix 5 =:
+infix 4 =:
 (=:) :: ToString c
      => String -> (String, c) -> Test
 (=:) = test markdown

src/Tests/Readers/RST.hs

@@ -11,7 +11,7 @@ import Text.Pandoc
 rst :: String -> Pandoc
 rst = readRST defaultParserState{ stateStandalone = True }
 
-infix 5 =:
+infix 4 =:
 (=:) :: ToString c
      => String -> (String, c) -> Test
 (=:) = test rst

src/Tests/Writers/ConTeXt.hs

@@ -26,7 +26,7 @@ which is in turn shorthand for
   test context "my test" (X,Y)
 -}
 
-infix 5 =:
+infix 4 =:
 (=:) :: (ToString a, ToPandoc a)
      => String -> (a, String) -> Test
 (=:) = test context

src/Tests/Writers/HTML.hs

@@ -23,7 +23,7 @@ which is in turn shorthand for
   test html "my test" (X,Y)
 -}
 
-infix 5 =:
+infix 4 =:
 (=:) :: (ToString a, ToPandoc a)
      => String -> (a, String) -> Test
 (=:) = test html

src/Tests/Writers/Markdown.hs

@@ -22,7 +22,7 @@ which is in turn shorthand for
   test markdown "my test" (X,Y)
 -}
 
-infix 5 =:
+infix 4 =:
 (=:) :: (ToString a, ToPandoc a)
      => String -> (a, String) -> Test
 (=:) = test markdown