Stop deriving Typeable, obsolete since GHC 7.10

Author: andreasabel

http-common/lib/Network/Http/Internal.hs

@@ -11,7 +11,6 @@
 
 {-# LANGUAGE BangPatterns       #-}
 {-# LANGUAGE CPP                #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# OPTIONS_HADDOCK hide, prune #-}
 
@@ -75,7 +74,6 @@ import Data.Map (Map)
 import Data.Int (Int64)
 import Data.List (foldl')
 import Data.Monoid as Mon (mconcat, mempty)
-import Data.Typeable (Typeable)
 import Data.Word (Word16)
 
 {-
@@ -472,6 +470,6 @@ down (k, v) =
     (original k, v)
 
 data HttpParseException = HttpParseException String
-        deriving (Typeable, Show)
+        deriving (Show)
 
 instance Exception HttpParseException

http-streams/lib/Network/Http/Client/WebSocket.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE BangPatterns       #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE NamedFieldPuns     #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE RecordWildCards    #-}
@@ -69,7 +68,6 @@ import qualified Data.CaseInsensitive     as CI
 import           Data.IORef
 import           Data.Maybe               (isJust)
 import           Data.Monoid              (Monoid (..))
-import           Data.Typeable            (Typeable)
 import           Data.Word
 import           Data.XOR                 (xor32LazyByteString, xor32StrictByteString')
 import           Network.Http.Client      as HC
@@ -83,7 +81,7 @@ import qualified System.IO.Streams        as Streams
 --
 -- @since 0.1.4.0
 data WsException = WsException String
-  deriving (Typeable,Show)
+  deriving (Show)
 
 instance Exception WsException
 
@@ -618,4 +616,3 @@ wsUpgradeConnection conn resource rqmod wskey failedToUpgrade success = do
       success resp conn
   where
     abort msg = throwIO (WsException ("wsUpgradeConnection: "++msg))
-

http-streams/lib/Network/Http/Connection.hs

@@ -10,7 +10,6 @@
 -- the BSD licence.
 --
 
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE DoAndIfThenElse    #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# OPTIONS_HADDOCK hide, not-home #-}

http-streams/lib/Network/Http/Inconvenience.hs

@@ -12,7 +12,6 @@
 
 {-# LANGUAGE BangPatterns       #-}
 {-# LANGUAGE CPP                #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE MagicHash          #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# OPTIONS_HADDOCK hide, not-home #-}
@@ -62,7 +61,6 @@ import Data.IORef (IORef, newIORef, readIORef, writeIORef)
 import Data.List (intersperse)
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
-import Data.Typeable (Typeable)
 import Data.Word (Word16)
 import GHC.Exts (Int(..), word2Int#, uncheckedShiftRL#)
 #if MIN_VERSION_base(4,16,0)
@@ -603,7 +601,7 @@ splitURI old new' =
 
 
 data TooManyRedirects = TooManyRedirects Int
-        deriving (Typeable, Show, Eq)
+        deriving (Show, Eq)
 
 instance Exception TooManyRedirects
 
@@ -765,7 +763,6 @@ concatHandler' p i =
     m = getStatusMessage p
 
 data HttpClientError = HttpClientError Int ByteString
-        deriving (Typeable)
 
 instance Exception HttpClientError
 

http-streams/lib/Network/Http/ResponseParser.hs

@@ -17,7 +17,6 @@
 
 {-# LANGUAGE BangPatterns       #-}
 {-# LANGUAGE CPP                #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# OPTIONS_HADDOCK hide, not-home #-}
 
@@ -42,7 +41,6 @@ import qualified Data.ByteString.Char8 as S
 import Data.CaseInsensitive (mk)
 import Data.Char (ord)
 import Data.Int (Int64)
-import Data.Typeable (Typeable)
 import System.IO.Streams (Generator, InputStream)
 import qualified System.IO.Streams as Streams
 import qualified System.IO.Streams.Attoparsec as Streams
@@ -174,7 +172,7 @@ readDecimal str' =
 {-# INLINE readDecimal #-}
 
 data UnexpectedCompression = UnexpectedCompression String
-        deriving (Typeable, Show)
+        deriving (Show)
 
 instance Exception UnexpectedCompression
 

http-streams/lib/Network/Http/Utilities.hs

@@ -19,7 +19,6 @@
 --
 
 {-# LANGUAGE BangPatterns       #-}
-{-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE MagicHash          #-}
 {-# LANGUAGE OverloadedStrings  #-}
 {-# LANGUAGE Rank2Types         #-}