[54] Remove redudant typeclass constraint

Author: roman

etc/src/System/Etc/Internal/Config.hs

@@ -66,7 +66,7 @@ _getConfigValueWith parser keys0 (Config configValue0) =
   in  loop keys0 configValue0
 
 _getSelectedConfigSource
-  :: (MonadThrow m, Typeable result, IConfigSource result) => [Text] -> Config -> m result
+  :: (MonadThrow m, IConfigSource result) => [Text] -> Config -> m result
 _getSelectedConfigSource keys0 (Config configValue0) =
   let loop keys configValue = case (keys, configValue) of
         ([], ConfigValue sources) -> case Set.maxView sources of

etc/src/System/Etc/Internal/Types.hs

@@ -284,7 +284,7 @@ class IConfig config where
     -> config
     -> m (Set SomeConfigSource)
   getSelectedConfigSource
-    :: (MonadThrow m, Typeable source, IConfigSource source)
+    :: (MonadThrow m, IConfigSource source)
     => [Text]
     -> config
     -> m source