quickcheck-silent 0.11.0.14 → 0.11.0.15
raw patch · 3 files changed
+9/−5 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +5/−0
- quickcheck-silent.cabal +1/−1
- src/Test/QuickCheck/Silent.hs +3/−4
CHANGELOG.md view
@@ -1,5 +1,10 @@ # Revision history for quickcheck-silent +## 0.11.0.15 -- 2026-08-20++* Moved the `JSON` type below `Result` and refactored code based on `LSP`+ suggestions.+ ## 0.11.0.14 -- 2026-08-19 * Based on feedback from `#haskell` on [Libera](https://libera.chat/), we have
quickcheck-silent.cabal view
@@ -10,7 +10,7 @@ build-type: Simple name: quickcheck-silent-version: 0.11.0.14+version: 0.11.0.15 synopsis: Testing with QuickCheck in silence description: Testing with QuickCheck in silence. For more info see README.md
src/Test/QuickCheck/Silent.hs view
@@ -27,9 +27,9 @@ , silent , withNumTests -- * Running tests- , JSON , Status(..) , Result(..)+ , JSON , quickCheckSilent , quickCheckSilentSuite , quickCheckSilentSuiteJSON@@ -41,7 +41,6 @@ import Data.Data ( Data ) import Data.List ( isPrefixOf )-import Data.Maybe ( fromMaybe ) import qualified Test.QuickCheck as QC import Test.QuickCheck@@ -214,7 +213,7 @@ $ filter ( \(l, _) -> pat `isPrefixOf` l) $ dfs [] suite where- dfs [ ] (Group l ts) = concatMap (dfs ( l)) ts+ dfs [ ] (Group l ts) = concatMap (dfs l) ts dfs acc (Group l ts) = concatMap (dfs (acc ++ [sep] ++ l)) ts dfs [ ] (Case l p) = [ ( l, p)] dfs acc (Case l p) = [ (acc ++ [sep] ++ l, p)]@@ -292,7 +291,7 @@ , Test.QuickCheck.Silent.usedSize = si , Test.QuickCheck.Silent.output = o , Test.QuickCheck.Silent.reason = r- , Test.QuickCheck.Silent.theException = fromMaybe [] $ show <$> e+ , Test.QuickCheck.Silent.theException = maybe [] show e } QC.NoExpectedFailure t d _ _ _ o -> Result