Remove unused function forAll2

cardano-scaling · Dec 8, 2024 · 7906771 · 7906771
1 parent 9b8c189
commit 7906771
Showing 1 changed file with 0 additions and 13 deletions.
diff --git a/hydra-test-utils/src/Test/Hydra/Prelude.hs b/hydra-test-utils/src/Test/Hydra/Prelude.hs
@@ -7,7 +7,6 @@ module Test.Hydra.Prelude (
   reasonablySized,
   ReasonablySized (..),
   genericCoverTable,
-  forAll2,
   pickBlind,
   module Test.Hspec,
   module Test.Hspec.QuickCheck,
@@ -210,18 +209,6 @@ genericCoverTable xs =
   enumerate = [minBound .. maxBound]
   numberOfLabels = toInteger $ length allLabels
 
--- | Shorthand for using 2 generated values in a property.
-forAll2 ::
-  (Testable property, Show a, Show b) =>
-  Gen a ->
-  Gen b ->
-  ((a, b) -> property) ->
-  Property
-forAll2 genA genB action =
-  forAll genA $ \a ->
-    forAll genB $ \b ->
-      action (a, b)
-
 -- | Like 'pick' but using 'forAllBlind' under the hood.
 pickBlind :: Monad m => Gen a -> PropertyM m a
 pickBlind gen = MkPropertyM $ \k -> do