genvalidity-hspec 1.0.0.1 → 1.0.0.2

raw patch · 3 files changed

+10/−1 lines, 3 files

Files

CHANGELOG.md +4/−0
genvalidity-hspec.cabal +1/−1
src/Test/Validity/Utils.hs +5/−0

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Changelog +## [1.0.0.2] - 2022-09-20++Same as 1.0.0.1, but with the right commit.+ ## [1.0.0.1] - 2022-09-02  ### Changed

genvalidity-hspec.cabal view

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           genvalidity-hspec-version:        1.0.0.1+version:        1.0.0.2 synopsis:       Standard spec's for GenValidity instances description:    Note: There are companion packages for this library:                 .

src/Test/Validity/Utils.hs view

@@ -1,4 +1,5 @@ {-# LANGUAGE AllowAmbiguousTypes #-}+{-# LANGUAGE CPP #-} {-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE PolyKinds #-} {-# LANGUAGE ScopedTypeVariables #-}@@ -68,7 +69,11 @@ -- but it has been copied here for convenience. -- https://github.com/hspec/hspec/commit/020c7ecc4a73c24af38e9fab049f60bb9aec6981#diff-29cb22f0ef6e98086a71fc045847bd21L22 mapSpecTree' :: (SpecTree a -> SpecTree b) -> SpecM a r -> SpecM b r+#if MIN_VERSION_hspec(2,10,0)+mapSpecTree' f (SpecM specs) = SpecM (mapWriterT (fmap (second (fmap (map f)))) specs)+#else mapSpecTree' f (SpecM specs) = SpecM (mapWriterT (fmap (second (map f))) specs)+#endif  -- | Asserts that a given 'Spec' tree fails _somewhere_. --