remove deprecated Typeable deriving

Author: larskuhtz

src/Configuration/Utils/ConfigFile.hs

@@ -78,7 +78,6 @@ import Data.Maybe
 import Data.Monoid.Unicode
 import Data.String
 import qualified Data.Text as T
-import Data.Typeable
 
 import Prelude hiding (any, concatMap, mapM_)
 
@@ -254,7 +253,7 @@ infix 6 %.:
 data ConfigFile
     = ConfigFileRequired { getConfigFile ∷ !T.Text }
     | ConfigFileOptional { getConfigFile ∷ !T.Text }
-    deriving (Show, Read, Eq, Ord, Typeable)
+    deriving (Show, Read, Eq, Ord)
 
 -- | An /internal/ type for the meta configuration that specifies how the
 -- configuration files are loaded and parsed.
@@ -263,7 +262,7 @@ data ConfigFile
 data ConfigFilesConfig = ConfigFilesConfig
     { _cfcHttpsPolicy ∷ !HttpsCertPolicy
     }
-    deriving (Show, Eq, Typeable)
+    deriving (Show, Eq)
 
 cfcHttpsPolicy ∷ Lens' ConfigFilesConfig HttpsCertPolicy
 cfcHttpsPolicy = lens _cfcHttpsPolicy $ \a b → a { _cfcHttpsPolicy = b }

src/Configuration/Utils/Internal/ConfigFileReader.hs

@@ -50,7 +50,6 @@ import Data.Bifunctor
 import qualified Data.ByteString.Char8 as B8
 import Data.Monoid.Unicode
 import qualified Data.Text as T
-import Data.Typeable
 import qualified Data.Yaml as Yaml
 
 import GHC.Generics
@@ -155,7 +154,7 @@ data ConfigFileFormat
     = Yaml
     | Json
     | Other
-    deriving (Show, Read, Eq, Ord, Enum, Bounded, Typeable, Generic)
+    deriving (Show, Read, Eq, Ord, Enum, Bounded, Generic)
 
 instance NFData ConfigFileFormat
 

src/Configuration/Utils/Internal/HttpsCertPolicy.hs

@@ -52,7 +52,6 @@ import Data.Monoid.Unicode
 import Data.String
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
-import Data.Typeable
 import qualified Data.X509 as TLS
 import qualified Data.X509.Validation as TLS
 
@@ -80,7 +79,7 @@ data HttpsCertPolicy = HttpsCertPolicy
     , _certPolicyHostFingerprints ∷ !(HM.HashMap TLS.ServiceID TLS.Fingerprint)
         -- ^ a whitelist for services with trusted certificates
     }
-    deriving (Show, Eq, Typeable)
+    deriving (Show, Eq)
 
 certPolicyInsecure ∷ Lens' HttpsCertPolicy Bool
 certPolicyInsecure = lens _certPolicyInsecure $ \s a → s { _certPolicyInsecure = a }
@@ -177,7 +176,7 @@ httpWithValidationPolicy request policy = do
 -- In particular exceptions should include rejected certificates.
 --
 newtype VerboseTlsException = VerboseTlsException T.Text
-    deriving (Eq, Ord, Typeable)
+    deriving (Eq, Ord)
 
 instance Show VerboseTlsException where
     show (VerboseTlsException msg) = "TLS exception: " ⊕ T.unpack msg