From 2eb5f40875d84d131697cc97a75353b634d53a38 Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Tue, 7 Apr 2009 23:01:38 +0000 Subject: [PATCH] fix is argument order --- Tests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Tests.hs b/Tests.hs index 75bda68b7..a939b5c11 100644 --- a/Tests.hs +++ b/Tests.hs @@ -189,7 +189,7 @@ tfilter _ t = t -- | Simple way to assert something is some expected value, with no label. is :: (Eq a, Show a) => a -> a -> Assertion -a `is` e = assertEqual "" a e +a `is` e = assertEqual "" e a -- | Assert a parse result is some expected value, or print a parse error. parseis :: (Show a, Eq a) => (Either ParseError a) -> a -> Assertion