Add instance Monoid (CConfig Option)
parent
135460622f
commit
1adf02dabe
|
@ -21,7 +21,6 @@ import Data.Data ( Data )
|
||||||
import Data.Coerce ( Coercible, coerce )
|
import Data.Coerce ( Coercible, coerce )
|
||||||
|
|
||||||
import Data.Semigroup.Generic
|
import Data.Semigroup.Generic
|
||||||
|
|
||||||
import Data.Semigroup ( Last, Option )
|
import Data.Semigroup ( Last, Option )
|
||||||
|
|
||||||
import Data.CZipWith
|
import Data.CZipWith
|
||||||
|
@ -154,6 +153,25 @@ instance Semigroup.Semigroup (CPreProcessorConfig Option) where
|
||||||
instance Semigroup.Semigroup (CConfig Option) where
|
instance Semigroup.Semigroup (CConfig Option) where
|
||||||
(<>) = gmappend
|
(<>) = gmappend
|
||||||
|
|
||||||
|
instance Monoid (CDebugConfig Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
instance Monoid (CLayoutConfig Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
instance Monoid (CErrorHandlingConfig Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
instance Monoid (CForwardOptions Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
instance Monoid (CPreProcessorConfig Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
instance Monoid (CConfig Option) where
|
||||||
|
mempty = gmempty
|
||||||
|
mappend = gmappend
|
||||||
|
|
||||||
aesonDecodeOptionsBrittany :: Aeson.Options
|
aesonDecodeOptionsBrittany :: Aeson.Options
|
||||||
aesonDecodeOptionsBrittany = Aeson.defaultOptions
|
aesonDecodeOptionsBrittany = Aeson.defaultOptions
|
||||||
{ Aeson.omitNothingFields = True
|
{ Aeson.omitNothingFields = True
|
||||||
|
|
Loading…
Reference in New Issue