fix: GHC 9.10 unit test compilation errors

- Remove redundant foldl' imports (now in Prelude)
- Add annotateIO to MonadThrow MonadDatabase instance
  (required by io-classes MINIMAL pragma for GHC >= 9.10)

Author: paolino

lib/benchmarks/exe/db-bench.hs

@@ -264,9 +264,6 @@ import Data.Functor
 import Data.Functor.Identity
     ( Identity (..)
     )
-import Data.List
-    ( foldl'
-    )
 import Data.Maybe
     ( fromMaybe
     )

lib/benchmarks/exe/restore-bench.hs

@@ -275,9 +275,6 @@ import Data.Functor
 import Data.Functor.Contravariant
     ( contramap
     )
-import Data.List
-    ( foldl'
-    )
 import Data.Percentage
     ( Percentage
     )

lib/unit/test/unit/Cardano/Wallet/Address/PoolSpec.hs

@@ -27,8 +27,7 @@ import Data.Functor.Identity
     ( Identity (..)
     )
 import Data.List
-    ( foldl'
-    , sortOn
+    ( sortOn
     )
 import Data.Map
     ( Map

lib/unit/test/unit/Cardano/Wallet/Api/TypesSpec.hs

@@ -537,8 +537,7 @@ import Data.Function
     ( (&)
     )
 import Data.List
-    ( foldl'
-    , intercalate
+    ( intercalate
     )
 import Data.List.NonEmpty
     ( NonEmpty (..)

lib/unit/test/unit/Cardano/Wallet/DB/MigrationSpec.hs

@@ -121,6 +121,7 @@ newtype MonadDatabase a = MonadDatabase
 instance MonadThrow MonadDatabase where
     throwIO = MonadDatabase . ExceptT . pure . Left . toException
     bracket = error "not defined"
+    annotateIO _ = id
 
 liftState :: State Database a -> MonadDatabase a
 liftState = MonadDatabase . lift

lib/unit/test/unit/Cardano/Wallet/DB/StateMachine.hs

@@ -252,8 +252,7 @@ import Data.Bifunctor
     ( first
     )
 import Data.Foldable
-    ( foldl'
-    , toList
+    ( toList
     )
 import Data.Functor.Classes
     ( Eq1

lib/wallet/src/Cardano/Wallet.hs

@@ -733,6 +733,7 @@ import Data.Functor
     ( ($>)
     , (<&>)
     )
+import qualified Data.Functor
 import Data.Functor.Contravariant
     ( (>$<)
     )
@@ -752,7 +753,6 @@ import Data.Generics.Product.Typed
 import Data.IntCast
     ( intCast
     )
-import qualified Data.Functor
 import Data.List.NonEmpty
     ( NonEmpty (..)
     )