diff options
Diffstat (limited to 'tests/Tests/Helpers.hs')
| -rw-r--r-- | tests/Tests/Helpers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Tests/Helpers.hs b/tests/Tests/Helpers.hs index f8236a54b..67de55dcc 100644 --- a/tests/Tests/Helpers.hs +++ b/tests/Tests/Helpers.hs @@ -11,8 +11,8 @@ import Test.HUnit hiding (Test) infix 8 --> -(-->) :: (Eq a, Show a) => a -> a -> Assertion -a --> e = assertEqual " " e a +(-->) :: (Eq a, Show a, Show b) => (b, a) -> a -> Assertion +(b,a) --> e = assertEqual (show b) e a -- In the first argument, the String is the input, and the Pandoc -- the output, of a pandoc reader. The input is shown in case |