Tweak failure format of shouldThrow

(so that it works better for multi-line output)

.gitattributes

@@ -0,0 +1 @@
+*.cabal linguist-generated

cabal.project

@@ -3,3 +3,5 @@ packages:
 
 package hspec-expectations
   ghc-options: -Werror
+
+tests: True

package.yaml

@@ -1,5 +1,5 @@
 name: hspec-expectations
-version: 0.8.3
+version: 0.8.4
 synopsis: Catchy combinators for HUnit
 description: "Catchy combinators for HUnit: <https://github.com/hspec/hspec-expectations#readme>"
 license: MIT

src/Test/Hspec/Expectations.hs

@@ -171,9 +171,9 @@ action `shouldThrow` p = do
         "did not get expected exception: " ++ exceptionType
     Left e ->
       (`expectTrue` p e) $
-        "predicate failed on expected exception: " ++ exceptionType ++ " (" ++ show e ++ ")"
+        "predicate failed on expected exception: " ++ exceptionType ++ "\n" ++ show e
   where
-    -- a string repsentation of the expected exception's type
+    -- a string representation of the expected exception's type
     exceptionType = (show . typeOf . instanceOf) p
       where
         instanceOf :: Selector a -> a

test/Test/Hspec/ExpectationsSpec.hs

@@ -96,7 +96,7 @@ spec = do
       error "foobar" `shouldThrow` errorCall "foobar"
 
     it "fails, if a required specific exception is not thrown" $ do
-      (throwIO Overflow `shouldThrow` (== DivideByZero)) `shouldThrow` expectationFailed (Reason "predicate failed on expected exception: ArithException (arithmetic overflow)")
+      (throwIO Overflow `shouldThrow` (== DivideByZero)) `shouldThrow` expectationFailed (Reason "predicate failed on expected exception: ArithException\narithmetic overflow")
 
     it "fails, if any exception is required, but no exception is thrown" $ do
       (return () `shouldThrow` anyException) `shouldThrow` expectationFailed (Reason "did not get expected exception: SomeException")