@@ -716,6 +716,7 @@ data HttpConfig = HttpConfig
716716 -- @since 3.6.0
717717 httpConfigBodyPreviewLength :: forall a. (Num a) => a
718718 }
719+ deriving (Typeable)
719720
720721-- | The default value of 'HttpConfig'.
721722--
@@ -1024,7 +1025,7 @@ instance (HttpMethod method) => RequestComponent (Tagged "method" method) where
10241025-- > -- https://%D1%8E%D0%BD%D0%B8%D0%BA%D0%BE%D0%B4.%D1%80%D1%84
10251026data Url (scheme :: Scheme) = Url Scheme (NonEmpty Text)
10261027 -- NOTE The second value is the path segments in reversed order.
1027− deriving (Eq, Ord, Show, Data, Generic)
1028+ deriving (Eq, Ord, Show, Data, Typeable, Generic)
10281029
10291030type role Url nominal
10301031
@@ -2011,7 +2012,7 @@ data HttpException
20112012 | -- | A wrapper with Aeson-produced 'String' describing why decoding
20122013 -- failed
20132014 JsonHttpException String
2014− deriving (Show, Generic)
2015+ deriving (Show, Typeable, Generic)
20152016
20162017instance Exception HttpException
20172018
@@ -2048,4 +2049,4 @@ data Scheme
20482049 Http
20492050 | -- | HTTPS
20502051 Https
2051− deriving (Eq, Ord, Show, Data, Generic, TH.Lift)
2052+ deriving (Eq, Ord, Show, Data, Typeable, Generic, TH.Lift)