Merge pull request UnkindPartition#88 from 3of8/master

Fixed bug with expectFailure in tasty-quickcheck

Author: UnkindPartition

quickcheck/Test/Tasty/QuickCheck.hs

@@ -116,7 +116,7 @@ instance IsTest QC where
 
     return $
       (if successful r then testPassed else testFailed)
-      (if unexpected r && showReplay
+      (if isFailure r && showReplay
          then QC.output r ++ reproduceMsg r
          else QC.output r
       )
@@ -134,6 +134,12 @@ unexpected r =
     QC.NoExpectedFailure {} -> True
     _ -> False
 
+isFailure :: QC.Result -> Bool
+isFailure r =
+  case r of
+    QC.Failure {} -> True
+    _ -> False
+
 reproduceMsg :: QC.Result -> String
 reproduceMsg r =
   printf "Use --quickcheck-replay '%d %s' to reproduce."