Add Monoid instances for Header and Example

GetShopTV · Dec 28, 2015 · ff6e2be · ff6e2be
1 parent 1a35138
commit ff6e2be
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Data/Swagger/Internal.hs b/src/Data/Swagger/Internal.hs
@@ -736,6 +736,10 @@ instance Monoid ParamOtherSchema where
   mempty = genericMempty
   mappend = genericMappend
 
+instance Monoid Header where
+  mempty = genericMempty
+  mappend = genericMappend
+
 instance Monoid Responses where
   mempty = genericMempty
   mappend = genericMappend
@@ -752,6 +756,10 @@ instance Monoid Operation where
   mempty = genericMempty
   mappend = genericMappend
 
+instance Monoid Example where
+  mempty = genericMempty
+  mappend = genericMappend
+
 -- =======================================================================
 -- SwaggerMonoid helper instances
 -- =======================================================================