@@ -714,6 +714,10 @@ instance Monoid Info where
714 mempty = genericMempty
714 mempty = genericMempty
715 mappend = genericMappend
715 mappend = genericMappend
717+instance Monoid Contact where
718+ mempty = genericMempty
719+ mappend = genericMappend
717instance Monoid PathItem where
721instance Monoid PathItem where
718 mempty = genericMempty
722 mempty = genericMempty
719 mappend = genericMappend
723 mappend = genericMappend