@@ -356,22 +356,17 @@ swaggerParamTypes = swaggerCommonTypes ++ [SwaggerFile]
356356swaggerSchemaTypes :: [SwaggerType Schema]
357357swaggerSchemaTypes = swaggerCommonTypes ++ [SwaggerNull, SwaggerObject]
358358
359−instance Data (SwaggerType Items) where
360− gunfold = gunfoldEnum "SwaggerType Items" $ zip [1..] swaggerCommonTypes
359+instance {-# OVERLAPPABLE #-} Typeable t => Data (SwaggerType t) where
360+ gunfold = gunfoldEnum "SwaggerType" $ zip [1..] swaggerCommonTypes
361361 toConstr = swaggerTypeConstr
362362 dataTypeOf = swaggerTypeDataType swaggerCommonTypes
363363
364−instance Data (SwaggerType Header) where
365− gunfold = gunfoldEnum "SwaggerType Header" $ zip [1..] swaggerCommonTypes
366− toConstr = swaggerTypeConstr
367− dataTypeOf = swaggerTypeDataType swaggerCommonTypes
368−
369−instance Data (SwaggerType ParamOtherSchema) where
364+instance {-# OVERLAPPING #-} Data (SwaggerType ParamOtherSchema) where
370365 gunfold = gunfoldEnum "SwaggerType ParamOtherSchema" $ zip [1..] swaggerParamTypes
371366 toConstr = swaggerTypeConstr
372367 dataTypeOf = swaggerTypeDataType swaggerParamTypes
373368
374−instance Data (SwaggerType Schema) where
369+instance {-# OVERLAPPING #-} Data (SwaggerType Schema) where
375370 gunfold = gunfoldEnum "SwaggerType Schema" $ zip ns swaggerSchemaTypes
376371 where ns = [1, 2, 3, 4, 5, 7, 8] -- skipping constructor #6 here
377372 toConstr = swaggerTypeConstr