backwards compatible import of liftA2

fmidue · Aug 27, 2024 · 3b33001 · 3b33001
1 parent 4ca2d71
commit 3b33001
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/src/Test/IOTasks/Internal/Term.hs b/src/Test/IOTasks/Internal/Term.hs
@@ -30,6 +30,8 @@ import Data.Map (Map)
 import qualified Data.Map as Map (lookup)
 import Data.Maybe ( fromMaybe, mapMaybe, maybeToList )
 
+import Control.Applicative (liftA2) -- not redundant for base-4.17.x.x and below!
+
 import Test.IOTasks.Internal.Overflow
 import Test.IOTasks.ValueMap as ValueMap
 import Test.IOTasks.Var

diff --git a/src/Test/IOTasks/Z3.hs b/src/Test/IOTasks/Z3.hs
@@ -28,6 +28,7 @@ import Z3.Base (Goal)
 
 import Test.QuickCheck (generate, vectorOf, elements)
 
+import Control.Applicative (liftA2) -- not redundant for base-4.17.x.x and below!
 import Control.Concurrent.STM
 
 import Control.Monad