@@ -1041,20 +1041,9 @@ instance ToJSON SecuritySchemeType where
10411041 <+> object [ "type" .= ("oauth2" :: Text) ]
10421042
10431043instance ToJSON Swagger where
1044− toJSON = sopSwaggerGenericToJSON . percentEncodeSwagger
1045− toEncoding = sopSwaggerGenericToEncoding . percentEncodeSwagger
1046−
1047−percentEncodeSwagger :: Swagger -> Swagger
1048−percentEncodeSwagger s = s
1049− { _swaggerDefinitions =
1050− InsOrdHashMap.mapKeys percentEncodeT $ _swaggerDefinitions s
1051− , _swaggerParameters =
1052− InsOrdHashMap.mapKeys percentEncodeT $ _swaggerParameters s
1053− , _swaggerResponses =
1054− InsOrdHashMap.mapKeys percentEncodeT $ _swaggerResponses s
1055− , _swaggerSecurityDefinitions =
1056− InsOrdHashMap.mapKeys percentEncodeT $ _swaggerSecurityDefinitions s
1057− }
1044+ toJSON = sopSwaggerGenericToJSON
1045+ DEFINE_TOENCODING
1046+
10581047
10591048instance ToJSON SecurityScheme where
10601049 toJSON = sopSwaggerGenericToJSON
@@ -1195,19 +1184,7 @@ instance FromJSON SecuritySchemeType where
11951184 parseJSON _ = empty
11961185
11971186instance FromJSON Swagger where
1198− parseJSON = fmap percentDecodeSwagger . sopSwaggerGenericParseJSON
1199−
1200−percentDecodeSwagger :: Swagger -> Swagger
1201−percentDecodeSwagger s = s
1202− { _swaggerDefinitions =
1203− InsOrdHashMap.mapKeys percentDecodeT $ _swaggerDefinitions s
1204− , _swaggerParameters =
1205− InsOrdHashMap.mapKeys percentDecodeT $ _swaggerParameters s
1206− , _swaggerResponses =
1207− InsOrdHashMap.mapKeys percentDecodeT $ _swaggerResponses s
1208− , _swaggerSecurityDefinitions =
1209− InsOrdHashMap.mapKeys percentDecodeT $ _swaggerSecurityDefinitions s
1210− }
1187+ parseJSON = sopSwaggerGenericParseJSON
12111188
12121189instance FromJSON SecurityScheme where
12131190 parseJSON = sopSwaggerGenericParseJSON