From f1e767c654bb02142c5c7898fcf0924abd17d43f Mon Sep 17 00:00:00 2001
From: Maximilian Algehed <m.algehed@gmail.com>
Date: Thu, 21 Mar 2024 11:18:40 +0100
Subject: [PATCH] don't rely on `getDown`

---
 src/Test/QuickCheck/Arbitrary.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Test/QuickCheck/Arbitrary.hs b/src/Test/QuickCheck/Arbitrary.hs
index da4e5a56..9655b2ad 100644
--- a/src/Test/QuickCheck/Arbitrary.hs
+++ b/src/Test/QuickCheck/Arbitrary.hs
@@ -1066,7 +1066,7 @@ instance Arbitrary NewlineMode where
 #if MIN_VERSION_base(4,6,0)
 instance Arbitrary1 Down where
   liftArbitrary = fmap Down
-  liftShrink shr = fmap Down . shr . getDown
+  liftShrink shr (Down a) = Down <$> shr a
 instance Arbitrary a => Arbitrary (Down a) where
   arbitrary = arbitrary1
   shrink = shrink1