Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
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...
commit ad186576ebfb263937bfa8eff48359d78ce8fd81 1 parent e877afd
@sol sol authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  hunit/Test/Framework/Providers/HUnit.hs
View
2  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
Please sign in to comment.
Something went wrong with that request. Please try again.