Add instance Monoid (CConfig Option)

pull/35/head
Lennart Spitzner 2017-05-22 23:12:38 +02:00
parent 135460622f
commit 1adf02dabe
1 changed files with 19 additions and 1 deletions

View File

@ -21,7 +21,6 @@ import Data.Data ( Data )
import Data.Coerce ( Coercible, coerce )
import Data.Semigroup.Generic
import Data.Semigroup ( Last, Option )
import Data.CZipWith
@ -154,6 +153,25 @@ instance Semigroup.Semigroup (CPreProcessorConfig Option) where
instance Semigroup.Semigroup (CConfig Option) where
(<>) = 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.defaultOptions
{ Aeson.omitNothingFields = True