Permalink
Browse files

Preserve layout of HUnit error messages (close #11)

e.g. give

    expected: "1010110001001011"
     but got: "1010100001001011"

instead of

    Failed: expected: "1010110001001011"
     but got: "1010100001001011"
  • Loading branch information...
1 parent e877afd commit ad186576ebfb263937bfa8eff48359d78ce8fd81 @sol sol committed Jan 13, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 hunit/Test/Framework/Providers/HUnit.hs
@@ -47,7 +47,7 @@ data TestCaseResult = TestCasePassed
instance Show TestCaseResult where
show result = case result of
TestCasePassed -> "OK"
- TestCaseFailed message -> "Failed: " ++ message
+ TestCaseFailed message -> message
TestCaseError message -> "ERROR: " ++ message
testCaseSucceeded :: TestCaseResult -> Bool

0 comments on commit ad18657

Please sign in to comment.