Fix "insufficient coverage" message

- Fix a typo - Remove redundant `TestCount`
hedgehogqa · May 3, 2024 · 52e3309 · 52e3309
1 parent c89ffd3
commit 52e3309
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/hedgehog/src/Hedgehog/Internal/Property.hs b/hedgehog/src/Hedgehog/Internal/Property.hs
@@ -306,7 +306,11 @@ newtype TestLimit =
 --
 newtype TestCount =
   TestCount Int
-  deriving (Eq, Ord, Show, Num, Enum, Real, Integral, Lift)
+  deriving (Eq, Ord, Num, Enum, Real, Integral, Lift)
+
+instance Show TestCount where
+  showsPrec p (TestCount n) =
+    showsPrec p n
 
 -- | The number of tests a property had to discard.
 --

diff --git a/hedgehog/src/Hedgehog/Internal/Runner.hs b/hedgehog/src/Hedgehog/Internal/Runner.hs
@@ -323,7 +323,7 @@ checkReport cfg size0 seed0 test0 updateUI = do
                 successReport
               else
                 failureReport $
-                  "Labels not sufficently covered after " <> show tests <> " tests"
+                  "Labels not sufficiently covered after " <> show tests <> " tests"
 
       else if discards >= fromIntegral (propertyDiscardLimit cfg) then
         -- we've hit the discard limit, give up