Declare mappend

pcapriotti · Jul 22, 2024 · c1c5037 · c1c5037
1 parent 0e0e43a
commit c1c5037
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Options/Applicative/Types.hs b/src/Options/Applicative/Types.hs
@@ -159,6 +159,7 @@ instance Semigroup OptGroup where
 
 instance Monoid OptGroup where
   mempty = OptGroup []
+  mappend = (<>)
 
 -- | Specification for an individual parser option.
 data OptProperties = OptProperties