From f43f06405401cedf06b296daf561c0849ee5297d Mon Sep 17 00:00:00 2001
From: parsonsmatt <parsonsmatt@gmail.com>
Date: Wed, 9 May 2018 14:07:24 -0600
Subject: [PATCH] Consistent messaging

---
 src/Servant/QuickCheck/Internal/QuickCheck.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Servant/QuickCheck/Internal/QuickCheck.hs b/src/Servant/QuickCheck/Internal/QuickCheck.hs
index b9ccd8d..f65dcc7 100644
--- a/src/Servant/QuickCheck/Internal/QuickCheck.hs
+++ b/src/Servant/QuickCheck/Internal/QuickCheck.hs
@@ -129,8 +129,10 @@ serverSatisfies api burl args preds = do
     Failure {..} -> do
       mx <- tryReadMVar deetsMVar
       case mx of
-        Just x -> expectationFailure $ "Failed:\n" ++ show x
-        Nothing -> expectationFailure $ "Failed to retrieve error. QC Failure: " <> show r
+        Just x ->
+          expectationFailure $ "Failed:\n" ++ show x
+        Nothing ->
+          expectationFailure $ "We failed to record a reason for failure: " <> show r
     GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
     NoExpectedFailure {} -> expectationFailure $ "No expected failure"
     InsufficientCoverage {} -> expectationFailure $ "Insufficient coverage"