fix liftA2 import

spl · Feb 17, 2024 · 4dea254 · 4dea254
1 parent 904cda5
commit 4dea254
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/QuickCheckUtil.hs b/tests/QuickCheckUtil.hs
@@ -21,7 +21,10 @@ module QuickCheckUtil where
 
 -- CPP: GHC >= 8 for NonEmpty
 #if __GLASGOW_HASKELL__ >= 800
+-- CPP: GHC >= 9.6 for 'liftA2' exported from Prelude
+#if __GLASGOW_HASKELL__ < 906
 import Control.Applicative (liftA2)
+#endif
 import Data.List.NonEmpty (NonEmpty (..), nonEmpty)
 import Data.Maybe (mapMaybe)
 #endif