haskell-nothunks/trunk/hedgehog-1.1.1.patch

   1 commit 357834dc4493cc955199d56bc69df7a66a0da367
   2 Author: Felix Yan <felixonmars@archlinux.org>
   3 Date:   Wed Apr 6 22:55:57 2022 +0300
   4
   5     Fix compatibility with hedgehog 1.1.1+
   6
   7 diff --git a/nothunks.cabal b/nothunks.cabal
   8 index faa70a5..3b37089 100644
   9 --- a/nothunks.cabal
  10 +++ b/nothunks.cabal
  11 @@ -72,10 +72,10 @@ test-suite nothunks-test
  12                      , ghc-prim
  13
  14                        -- Additional dependencies
  15 -                    , hedgehog       >= 1.0 && < 1.1
  16 +                    , hedgehog       >= 1.0 && < 1.2
  17                      , random         >= 1.1 && < 1.3
  18                      , tasty          >= 1.3 && < 1.5
  19 -                    , tasty-hedgehog >= 1.0 && < 1.2
  20 +                    , tasty-hedgehog >= 1.0 && < 1.3
  21
  22      hs-source-dirs:   test
  23      default-language: Haskell2010
  24 diff --git a/test/Test/NoThunks/Class.hs b/test/Test/NoThunks/Class.hs
  25 index b1eca72..d109acd 100644
  26 --- a/test/Test/NoThunks/Class.hs
  27 +++ b/test/Test/NoThunks/Class.hs
  28 @@ -1,4 +1,5 @@
  29  {-# LANGUAGE BangPatterns        #-}
  30 +{-# LANGUAGE CPP                 #-}
  31  {-# LANGUAGE DataKinds           #-}
  32  {-# LANGUAGE DeriveFunctor       #-}
  33  {-# LANGUAGE DeriveGeneric       #-}
  34 @@ -649,7 +650,11 @@ unsafeCheckNFAtomically expectedNF k = withTests 1 $ property $ k $ \x -> do
  35  expectFailure :: Property -> Property
  36  expectFailure p = withTests 1 $ property $ do
  37      report <- liftIO $ displayRegion $ \r ->
  38 -                checkNamed r EnableColor (Just "EXPECTED FAILURE") p
  39 +                checkNamed r EnableColor (Just "EXPECTED FAILURE")
  40 +#if MIN_VERSION_hedgehog(1,1,1)
  41 +                Nothing
  42 +#endif
  43 +                p
  44      case reportStatus report of
  45        Failed _ ->
  46          success