From 0491d8bb478574fc89a203b3a0d4defad757d5f8 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 c186886..59cb245 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 8af6f3a..46c0edf 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 2bbe3f0..71ac74b 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 aa1bc13..61449ae 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 4e4f4ac..10297ba 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 9341496..c575e39 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 1fc5b28..c3e5f66 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 647298be432e2efeb23acb1a06118742dc747d3d 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 59cb245..2582844 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 46c0edf..b131367 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 61449ae..352f380 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