From 1adf02dabe4524ecbf20a2bf6b3c926acc84389e Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Mon, 22 May 2017 23:12:38 +0200 Subject: [PATCH] Add instance Monoid (CConfig Option) --- .../Haskell/Brittany/Internal/Config/Types.hs | 20 ++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/src/Language/Haskell/Brittany/Internal/Config/Types.hs b/src/Language/Haskell/Brittany/Internal/Config/Types.hs index 80a8018..96b4863 100644 --- a/src/Language/Haskell/Brittany/Internal/Config/Types.hs +++ b/src/Language/Haskell/Brittany/Internal/Config/Types.hs @@ -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