Deriving Typeable has no effect: all types now auto-derive Typeable (-Wderiving-typeable)

Author: Bodigrim

src/Data/Text/Encoding/Error.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, DeriveDataTypeable #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE Safe #-}
 -- |
 -- Module      : Data.Text.Encoding.Error
@@ -36,7 +36,6 @@ module Data.Text.Encoding.Error
 
 import Control.DeepSeq (NFData (..))
 import Control.Exception (Exception, throw)
-import Data.Typeable (Typeable)
 import Data.Word (Word8)
 import Numeric (showHex)
 
@@ -74,7 +73,7 @@ data UnicodeException =
   | EncodeError String (Maybe Char)
     -- ^ Tried to encode a character that could not be represented
     -- under the given encoding, or ran out of input in mid-encode.
-    deriving (Eq, Typeable)
+    deriving (Eq)
 
 {-# DEPRECATED EncodeError "This constructor is never used, and will be removed." #-}
 

src/Data/Text/Internal.hs

@@ -1,6 +1,5 @@
 {-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE CPP #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE UnboxedTuples #-}
 {-# OPTIONS_HADDOCK not-home #-}
@@ -58,15 +57,13 @@ import Control.Monad.ST (ST, runST)
 import Data.Bits
 import Data.Int (Int32, Int64)
 import Data.Text.Internal.Unsafe.Char (ord, unsafeWrite)
-import Data.Typeable (Typeable)
 import qualified Data.Text.Array as A
 
 -- | A space efficient, packed, unboxed Unicode text type.
 data Text = Text
     {-# UNPACK #-} !A.Array -- ^ bytearray encoded as UTF-8
     {-# UNPACK #-} !Int     -- ^ offset in bytes (not in Char!), pointing to a start of UTF-8 sequence
     {-# UNPACK #-} !Int     -- ^ length in bytes (not in Char!), pointing to an end of UTF-8 sequence
-    deriving (Typeable)
 
 -- | Type synonym for the strict flavour of 'Text'.
 type StrictText = Text

src/Data/Text/Internal/Lazy.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns, DeriveDataTypeable #-}
+{-# LANGUAGE BangPatterns #-}
 {-# OPTIONS_HADDOCK not-home #-}
 
 -- |
@@ -43,7 +43,6 @@ module Data.Text.Internal.Lazy
 
 import Data.Bits (shiftL)
 import Data.Text ()
-import Data.Typeable (Typeable)
 import Foreign.Storable (sizeOf)
 import qualified Data.Text.Array as A
 import qualified Data.Text.Internal as T
@@ -55,7 +54,6 @@ data Text = Empty
           -- @since 2.1.2
           | Chunk {-# UNPACK #-} !T.Text Text
           -- ^ Chunks must be non-empty, this invariant is not checked.
-            deriving (Typeable)
 
 -- | Type synonym for the lazy flavour of 'Text'.
 type LazyText = Text

src/Data/Text/Lazy/Internal.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE BangPatterns, DeriveDataTypeable #-}
 -- |
 -- Module      : Data.Text.Lazy.Internal
 -- Copyright   : (c) 2013 Bryan O'Sullivan