diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 13:23:06 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-02-05 13:23:06 -0800 |
| commit | 1f20f77712e31fa554b0c435a9d0376c4d4138d6 (patch) | |
| tree | 94d64abe589499e279d1006325cb788ba5887711 /src/Tests/Writers | |
| parent | 9bf32a7554da7912efff95a4cd59bb4faaf44fa5 (diff) | |
Changed infix level of testing combinators.
This avoids clash with (<>), which is defined in Data.Monoid
as having infix 6.
Diffstat (limited to 'src/Tests/Writers')
| -rw-r--r-- | src/Tests/Writers/ConTeXt.hs | 2 | ||||
| -rw-r--r-- | src/Tests/Writers/HTML.hs | 2 | ||||
| -rw-r--r-- | src/Tests/Writers/Markdown.hs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/Tests/Writers/ConTeXt.hs b/src/Tests/Writers/ConTeXt.hs index 1be9a745b..506ff698f 100644 --- a/src/Tests/Writers/ConTeXt.hs +++ b/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 diff --git a/src/Tests/Writers/HTML.hs b/src/Tests/Writers/HTML.hs index e3a446586..8561aa421 100644 --- a/src/Tests/Writers/HTML.hs +++ b/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 diff --git a/src/Tests/Writers/Markdown.hs b/src/Tests/Writers/Markdown.hs index 17bf784ca..d90dc83b1 100644 --- a/src/Tests/Writers/Markdown.hs +++ b/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 |