From c98d32157901acf9e3a74e769cc38149e019547b Mon Sep 17 00:00:00 2001 From: L0neGamer Date: Sun, 19 Apr 2026 19:58:56 +0100 Subject: [PATCH 1/2] remove traverse from imports --- Control/Applicative/Backwards.hs | 1 - Control/Applicative/Lift.hs | 1 - Control/Monad/Trans/Except.hs | 1 - Control/Monad/Trans/Identity.hs | 1 - Control/Monad/Trans/Maybe.hs | 1 - Control/Monad/Trans/Writer/Lazy.hs | 1 - Control/Monad/Trans/Writer/Strict.hs | 1 - Data/Functor/Reverse.hs | 1 - 8 files changed, 8 deletions(-) diff --git a/Control/Applicative/Backwards.hs b/Control/Applicative/Backwards.hs index 206b8ec..8b55cf8 100644 --- a/Control/Applicative/Backwards.hs +++ b/Control/Applicative/Backwards.hs @@ -32,7 +32,6 @@ import GHC.Generics import Prelude hiding (foldr, foldr1, foldl, foldl1, null, length) import Control.Applicative import Data.Foldable -import Data.Traversable (Traversable(traverse, sequenceA)) -- | The same functor, but with an 'Applicative' instance that performs -- actions in the reverse order. diff --git a/Control/Applicative/Lift.hs b/Control/Applicative/Lift.hs index 261d90f..468ff2d 100644 --- a/Control/Applicative/Lift.hs +++ b/Control/Applicative/Lift.hs @@ -36,7 +36,6 @@ import Data.Functor.Classes import Control.Applicative import Data.Functor.Constant import Data.Foldable (Foldable(foldMap)) -import Data.Traversable (Traversable(traverse)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif diff --git a/Control/Monad/Trans/Except.hs b/Control/Monad/Trans/Except.hs index b3f725d..8189ed1 100644 --- a/Control/Monad/Trans/Except.hs +++ b/Control/Monad/Trans/Except.hs @@ -60,7 +60,6 @@ import qualified Control.Monad.Fail as Fail import Control.Monad.Fix import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Foldable (Foldable(foldMap)) -import Data.Traversable (Traversable(traverse)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif diff --git a/Control/Monad/Trans/Identity.hs b/Control/Monad/Trans/Identity.hs index 2146664..383e7e4 100644 --- a/Control/Monad/Trans/Identity.hs +++ b/Control/Monad/Trans/Identity.hs @@ -41,7 +41,6 @@ import qualified Control.Monad.Fail as Fail import Control.Monad.Fix (MonadFix(mfix)) import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Foldable -import Data.Traversable (Traversable(traverse)) import Prelude hiding (foldr, foldr1, foldl, foldl1, null, length) #ifdef __GLASGOW_HASKELL__ import GHC.Generics diff --git a/Control/Monad/Trans/Maybe.hs b/Control/Monad/Trans/Maybe.hs index 6db743e..6a2e5d4 100644 --- a/Control/Monad/Trans/Maybe.hs +++ b/Control/Monad/Trans/Maybe.hs @@ -51,7 +51,6 @@ import Control.Monad.Fix (MonadFix(mfix)) import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Maybe (fromMaybe) import Data.Foldable (Foldable(foldMap)) -import Data.Traversable (Traversable(traverse)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif diff --git a/Control/Monad/Trans/Writer/Lazy.hs b/Control/Monad/Trans/Writer/Lazy.hs index 79bab1a..b4ac58b 100644 --- a/Control/Monad/Trans/Writer/Lazy.hs +++ b/Control/Monad/Trans/Writer/Lazy.hs @@ -58,7 +58,6 @@ import Control.Monad.Fix import Control.Monad.Signatures import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Foldable -import Data.Traversable (Traversable(traverse)) import Prelude hiding (null, length) #ifdef __GLASGOW_HASKELL__ import GHC.Generics diff --git a/Control/Monad/Trans/Writer/Strict.hs b/Control/Monad/Trans/Writer/Strict.hs index e5c9903..08653a1 100644 --- a/Control/Monad/Trans/Writer/Strict.hs +++ b/Control/Monad/Trans/Writer/Strict.hs @@ -61,7 +61,6 @@ import Control.Monad.Fix import Control.Monad.Signatures import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Foldable -import Data.Traversable (Traversable(traverse)) import Prelude hiding (null, length) #ifdef __GLASGOW_HASKELL__ import GHC.Generics diff --git a/Data/Functor/Reverse.hs b/Data/Functor/Reverse.hs index 01263d2..e2ed0eb 100644 --- a/Data/Functor/Reverse.hs +++ b/Data/Functor/Reverse.hs @@ -32,7 +32,6 @@ import Control.Applicative import Control.Monad import qualified Control.Monad.Fail as Fail import Data.Foldable -import Data.Traversable (Traversable(traverse)) import Data.Monoid (Dual (..)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics From cf80e9ee506023ea705d24f977aca0696fd95157 Mon Sep 17 00:00:00 2001 From: L0neGamer Date: Mon, 20 Apr 2026 18:40:33 +0100 Subject: [PATCH 2/2] drop foldMap imports --- Control/Applicative/Lift.hs | 1 - Control/Monad/Trans/Except.hs | 1 - Control/Monad/Trans/Maybe.hs | 1 - 3 files changed, 3 deletions(-) diff --git a/Control/Applicative/Lift.hs b/Control/Applicative/Lift.hs index 468ff2d..d449a00 100644 --- a/Control/Applicative/Lift.hs +++ b/Control/Applicative/Lift.hs @@ -35,7 +35,6 @@ import Data.Functor.Classes import Control.Applicative import Data.Functor.Constant -import Data.Foldable (Foldable(foldMap)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif diff --git a/Control/Monad/Trans/Except.hs b/Control/Monad/Trans/Except.hs index 8189ed1..1c3302e 100644 --- a/Control/Monad/Trans/Except.hs +++ b/Control/Monad/Trans/Except.hs @@ -59,7 +59,6 @@ import Control.Monad import qualified Control.Monad.Fail as Fail import Control.Monad.Fix import Control.Monad.Zip (MonadZip(mzipWith)) -import Data.Foldable (Foldable(foldMap)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif diff --git a/Control/Monad/Trans/Maybe.hs b/Control/Monad/Trans/Maybe.hs index 6a2e5d4..6809ac0 100644 --- a/Control/Monad/Trans/Maybe.hs +++ b/Control/Monad/Trans/Maybe.hs @@ -50,7 +50,6 @@ import qualified Control.Monad.Fail as Fail import Control.Monad.Fix (MonadFix(mfix)) import Control.Monad.Zip (MonadZip(mzipWith)) import Data.Maybe (fromMaybe) -import Data.Foldable (Foldable(foldMap)) #ifdef __GLASGOW_HASKELL__ import GHC.Generics #endif