Declare mappend

Author: HuwCampbell

src/Options/Applicative/Types.hs

@@ -166,6 +166,7 @@ instance Semigroup OptGroup where
 
 instance Monoid OptGroup where
   mempty = OptGroup []
+  mappend = (<>)
 
 -- | Specification for an individual parser option.
 data OptProperties = OptProperties