validity 0.12.0.1 → 0.12.0.2

raw patch · 4 files changed

+16/−3 lines, 4 files

Files

CHANGELOG.md +6/−0
src/Data/Validity.hs +7/−0
test/Data/ValiditySpec.hs +1/−1
validity.cabal +2/−2

CHANGELOG.md view

@@ -1,5 +1,11 @@ # Changelog +## [0.12.0.2] - 2023-10-09++### Added++* `decorateString`+ ## [0.12.0.1] - 2022-04-26  ### Added

src/Data/Validity.hs view

@@ -48,6 +48,7 @@     delve,     decorate,     decorateList,+    decorateString,     invalid,     valid, @@ -274,6 +275,12 @@   flip map (zip [0 ..] as) $ \(i, a) ->     decorate (unwords ["The element at index", show (i :: Integer), "in the list"]) $       func a++-- | 'decorateList', but specifically for 'String's+--+-- > decorateString = decorateList+decorateString :: String -> (Char -> Validation) -> Validation+decorateString = decorateList  -- | Construct a trivially invalid 'Validation' --

test/Data/ValiditySpec.hs view

@@ -146,7 +146,7 @@   describe "NormalisedRatio" $ do     it "says that NaN is invalid" $ NormalisedRatio notANumber `shouldSatisfy` (not . isValid)     it "says that +Inf is invalid" $ NormalisedRatio infinity `shouldSatisfy` (not . isValid)-    it "says that -Inf is invalid" $ NormalisedRatio (- infinity) `shouldSatisfy` (not . isValid)+    it "says that -Inf is invalid" $ NormalisedRatio (-infinity) `shouldSatisfy` (not . isValid)     it "says that these non-normalised numbers are invalid" $ do       NormalisedRatio ((5 :: Integer) :% 5) `shouldSatisfy` (not . isValid)       NormalisedRatio ((1 :: Integer) :% (-5)) `shouldSatisfy` (not . isValid)

validity.cabal view

@@ -1,11 +1,11 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.7.+-- This file has been generated from package.yaml by hpack version 0.35.2. -- -- see: https://github.com/sol/hpack  name:           validity-version:        0.12.0.1+version:        0.12.0.2 synopsis:       Validity typeclass description:    For more info, see <https://github.com/NorfairKing/validity the readme>.                 .