diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for cabal-detailed-quickcheck
 
+## 0.1.1.6 — 2022-07-28
+
+* Slightly updated code.
+
 ## 0.1.1.5 — 2022-07-28
 
 * Broadened version ranges further.
diff --git a/cabal-detailed-quickcheck.cabal b/cabal-detailed-quickcheck.cabal
--- a/cabal-detailed-quickcheck.cabal
+++ b/cabal-detailed-quickcheck.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               cabal-detailed-quickcheck
-version:            0.1.1.5
+version:            0.1.1.6
 synopsis:           QuickCheck for Cabal tests
 description:        Turn QuickCheck properties into detailed Cabal tests
 homepage:           https://github.com/schuelermine/cabal-detailed-quickcheck
@@ -31,4 +31,4 @@
 source-repository this
     type:               git
     location:           https://github.com/schuelermine/cabal-detailed-quickcheck.git
-    tag:                0.1.1.5
+    tag:                0.1.1.6
diff --git a/lib/Distribution/TestSuite/QuickCheck.hs b/lib/Distribution/TestSuite/QuickCheck.hs
--- a/lib/Distribution/TestSuite/QuickCheck.hs
+++ b/lib/Distribution/TestSuite/QuickCheck.hs
@@ -288,19 +288,18 @@
 getPropertyTestWithUsing originalArgs PropertyTest {..} =
   let withArgs args =
         T.TestInstance
-          { -- TODO Consider using 'T.Progress' to allow intermediate results
+          {
             run = do
               result <- qcTestArgs args (property args)
               let resultStr = "\n" ++ show result
               return $ T.Finished case result of
                 QC.Success {} -> T.Pass
-                QC.GaveUp {} -> T.Error $ "GaveUp: QuickCheck gave up" ++ resultStr
-                QC.Failure {} -> T.Fail $ "Failure: A property failed" ++ resultStr
+                QC.GaveUp {} ->
+                  T.Error $ "GaveUp: QuickCheck gave up" ++ resultStr
+                QC.Failure {} ->
+                  T.Fail $ "Failure: A property failed" ++ resultStr
                 QC.NoExpectedFailure {} ->
-                  T.Fail $
-                    "NoExpectedFailure: A property that should have failed did not"
-                      ++ "\n"
-                      ++ show result,
+                  T.Fail $ "NoExpectedFailure: A property that should have failed did not" ++ resultStr,
             name,
             tags,
             options = getOptionDescrs originalArgs,