From d0d1dc3a469f6ee7daf9974d1c404325a8a150d7 Mon Sep 17 00:00:00 2001 From: Andreas Abel Date: Fri, 24 Sep 2021 15:01:27 +0200 Subject: [PATCH] Fix some import warnings --- mono-traversable/src/Data/Containers.hs | 1 - mono-traversable/src/Data/MonoTraversable.hs | 2 +- mono-traversable/src/Data/MonoTraversable/Unprefixed.hs | 1 - mono-traversable/src/Data/NonNull.hs | 1 - 4 files changed, 1 insertion(+), 4 deletions(-) diff --git a/mono-traversable/src/Data/Containers.hs b/mono-traversable/src/Data/Containers.hs index 49f9cca0..6b4ac042 100644 --- a/mono-traversable/src/Data/Containers.hs +++ b/mono-traversable/src/Data/Containers.hs @@ -16,7 +16,6 @@ import Data.Hashable (Hashable) import qualified Data.Set as Set import qualified Data.HashSet as HashSet import Data.Monoid (Monoid (..)) -import Data.Semigroup (Semigroup) import Data.MonoTraversable (MonoFunctor(..), MonoFoldable, MonoTraversable, Element, GrowingAppend, ofoldl', otoList) import Data.Function (on) import qualified Data.List as List diff --git a/mono-traversable/src/Data/MonoTraversable.hs b/mono-traversable/src/Data/MonoTraversable.hs index 460d2456..a002a8c5 100644 --- a/mono-traversable/src/Data/MonoTraversable.hs +++ b/mono-traversable/src/Data/MonoTraversable.hs @@ -44,7 +44,7 @@ import Data.Traversable import Data.Word (Word8) import Data.Int (Int, Int64) import GHC.Exts (build) -import GHC.Generics ((:.:), (:*:), (:+:)(..), K1(..), M1(..), Par1(..), Rec1(..), U1(..), V1(..)) +import GHC.Generics ((:.:), (:*:), (:+:)(..), K1(..), M1(..), Par1(..), Rec1(..), U1(..), V1) import Prelude (Bool (..), const, Char, flip, IO, Maybe (..), Either (..), (+), Integral, Ordering (..), compare, fromIntegral, Num, (>=), (==), seq, otherwise, Eq, Ord, (-), (*)) diff --git a/mono-traversable/src/Data/MonoTraversable/Unprefixed.hs b/mono-traversable/src/Data/MonoTraversable/Unprefixed.hs index e3f49801..326ee27d 100644 --- a/mono-traversable/src/Data/MonoTraversable/Unprefixed.hs +++ b/mono-traversable/src/Data/MonoTraversable/Unprefixed.hs @@ -14,7 +14,6 @@ module Data.MonoTraversable.Unprefixed where import Data.Int (Int64) import Data.MonoTraversable -import Data.Semigroup (Semigroup) import Data.Monoid (Monoid) import Control.Applicative (Applicative) diff --git a/mono-traversable/src/Data/NonNull.hs b/mono-traversable/src/Data/NonNull.hs index 337641b3..87c6a419 100644 --- a/mono-traversable/src/Data/NonNull.hs +++ b/mono-traversable/src/Data/NonNull.hs @@ -49,7 +49,6 @@ import qualified Data.List.NonEmpty as NE import Data.Maybe (fromMaybe) import Data.MonoTraversable import Data.Sequences -import Data.Semigroup (Semigroup (..)) import Control.Monad.Trans.State.Strict (evalState, state) data NullError = NullError String deriving (Show, Typeable)