@@ -356,22 +356,17 @@ swaggerParamTypes = swaggerCommonTypes ++ [SwaggerFile]
356swaggerSchemaTypes :: [SwaggerType Schema]
356swaggerSchemaTypes :: [SwaggerType Schema]
357swaggerSchemaTypes = swaggerCommonTypes ++ [SwaggerNull, SwaggerObject]
357swaggerSchemaTypes = swaggerCommonTypes ++ [SwaggerNull, SwaggerObject]
359−instance Data (SwaggerType Items) where
359+instance {-# OVERLAPPABLE #-} Typeable t => Data (SwaggerType t) where
360− gunfold = gunfoldEnum "SwaggerType Items" $ zip [1..] swaggerCommonTypes
360+ gunfold = gunfoldEnum "SwaggerType" $ zip [1..] swaggerCommonTypes
361 toConstr = swaggerTypeConstr
361 toConstr = swaggerTypeConstr
362 dataTypeOf = swaggerTypeDataType swaggerCommonTypes
362 dataTypeOf = swaggerTypeDataType swaggerCommonTypes
364−instance Data (SwaggerType Header) where
365− gunfold = gunfoldEnum "SwaggerType Header" $ zip [1..] swaggerCommonTypes
366− toConstr = swaggerTypeConstr
367− dataTypeOf = swaggerTypeDataType swaggerCommonTypes
369−instance Data (SwaggerType ParamOtherSchema) where
364+instance {-# OVERLAPPING #-} Data (SwaggerType ParamOtherSchema) where
370 gunfold = gunfoldEnum "SwaggerType ParamOtherSchema" $ zip [1..] swaggerParamTypes
365 gunfold = gunfoldEnum "SwaggerType ParamOtherSchema" $ zip [1..] swaggerParamTypes
371 toConstr = swaggerTypeConstr
366 toConstr = swaggerTypeConstr
372 dataTypeOf = swaggerTypeDataType swaggerParamTypes
367 dataTypeOf = swaggerTypeDataType swaggerParamTypes
374−instance Data (SwaggerType Schema) where
369+instance {-# OVERLAPPING #-} Data (SwaggerType Schema) where
375 gunfold = gunfoldEnum "SwaggerType Schema" $ zip ns swaggerSchemaTypes
370 gunfold = gunfoldEnum "SwaggerType Schema" $ zip ns swaggerSchemaTypes
376 where ns = [1, 2, 3, 4, 5, 7, 8] -- skipping constructor #6 here
371 where ns = [1, 2, 3, 4, 5, 7, 8] -- skipping constructor #6 here
377 toConstr = swaggerTypeConstr
372 toConstr = swaggerTypeConstr