From 7906771eff58c63b98c2feb7ecd55047e251559b Mon Sep 17 00:00:00 2001
From: Daniel Firth <daniel.firth@iohk.io>
Date: Sun, 8 Dec 2024 17:15:42 +0000
Subject: [PATCH] Remove unused function forAll2

---
 hydra-test-utils/src/Test/Hydra/Prelude.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/hydra-test-utils/src/Test/Hydra/Prelude.hs b/hydra-test-utils/src/Test/Hydra/Prelude.hs
index a38ce8fdea7..06ac37df591 100644
--- 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