From 712930c251db2f565716c5953f6b4d39754ea349 Mon Sep 17 00:00:00 2001 From: Bodigrim Date: Thu, 26 Sep 2024 22:59:28 +0100 Subject: [PATCH] Fix -Wderiving-typeable --- src/Data/Bit/F2Poly.hs | 3 +-- src/Data/Bit/Internal.hs | 5 ++--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Data/Bit/F2Poly.hs b/src/Data/Bit/F2Poly.hs index 52bacc8..96da032 100644 --- a/src/Data/Bit/F2Poly.hs +++ b/src/Data/Bit/F2Poly.hs @@ -36,7 +36,6 @@ import Data.Bits import Data.Char import Data.Coerce import Data.Primitive.ByteArray -import Data.Typeable import qualified Data.Vector.Primitive as P import qualified Data.Vector.Unboxed as U import qualified Data.Vector.Unboxed.Mutable as MU @@ -77,7 +76,7 @@ newtype F2Poly = F2Poly { -- -- @since 1.0.1.0 } - deriving (Eq, Ord, Typeable, Generic, NFData) + deriving (Eq, Ord, Generic, NFData) -- | Make an 'F2Poly' from a list of coefficients -- (first element corresponds to a constant term). diff --git a/src/Data/Bit/Internal.hs b/src/Data/Bit/Internal.hs index b8b0fc1..0388078 100644 --- a/src/Data/Bit/Internal.hs +++ b/src/Data/Bit/Internal.hs @@ -41,7 +41,6 @@ import Data.Bits import Data.Bit.Utils import Data.Primitive.ByteArray import Data.Ratio -import Data.Typeable import qualified Data.Vector.Generic as V import qualified Data.Vector.Generic.Mutable as MV import qualified Data.Vector.Unboxed as U @@ -65,7 +64,7 @@ newtype Bit = Bit { } deriving (Bounded, Enum, Eq, Ord , FiniteBits -- ^ @since 0.2.0.0 - , Bits, Typeable + , Bits , Generic -- ^ @since 1.0.1.0 , NFData -- ^ @since 1.0.1.0 ) @@ -83,7 +82,7 @@ newtype Bit = Bit { } deriving (Bounded, Enum, Eq, Ord , FiniteBits -- ^ @since 0.2.0.0 - , Bits, Typeable + , Bits , Generic -- ^ @since 1.0.1.0 , NFData -- ^ @since 1.0.1.0 )