hedgehog-extras 0.6.0.1 → 0.6.0.2

raw patch · 2 files changed

+4/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hedgehog-extras.cabal +1/−1
• src/Hedgehog/Extras/Test/Base.hs +3/−3

@@ -1,7 +1,7 @@ cabal-version: 2.4  name:                   hedgehog-extras-version:                0.6.0.1+version:                0.6.0.2 synopsis:               Supplemental library for hedgehog description:            Supplemental library for hedgehog. category:               Test

@@ -307,7 +307,7 @@  -- | Fail when the computed result is Nothing. nothingFailM :: (MonadTest m, HasCallStack) => m (Maybe a) -> m a-nothingFailM f = f >>= nothingFail+nothingFailM f = GHC.withFrozenCallStack $ f >>= nothingFail  -- | Fail when the result is Left. leftFail :: (MonadTest m, Show e, HasCallStack) => Either e a -> m a@@ -317,7 +317,7 @@  -- | Fail when the computed result is Left. leftFailM :: (MonadTest m, Show e, HasCallStack) => m (Either e a) -> m a-leftFailM f = f >>= leftFail+leftFailM f = GHC.withFrozenCallStack $ f >>= leftFail  maybeAt :: Int -> [a] -> Maybe a maybeAt n xs@@ -361,7 +361,7 @@  -- | Fail when the computed result is Error. jsonErrorFailM :: (MonadTest m, HasCallStack) => m (Result a) -> m a-jsonErrorFailM f = f >>= jsonErrorFail+jsonErrorFailM f = GHC.withFrozenCallStack $ f >>= jsonErrorFail  -- | Run the operation 'f' once a second until it returns 'True' or the deadline expires. --