diff --git a/src/Language/Haskell/Brittany/Config/Types.hs b/src/Language/Haskell/Brittany/Config/Types.hs index 62dcd75..7277879 100644 --- a/src/Language/Haskell/Brittany/Config/Types.hs +++ b/src/Language/Haskell/Brittany/Config/Types.hs @@ -111,7 +111,10 @@ type LayoutConfig = LayoutConfigF Identity type ErrorHandlingConfig = ErrorHandlingConfigF Identity instance FromJSON a => FromJSON (Semigroup.Last a) where + parseJSON obj = Semigroup.Last <$> parseJSON obj + {-# INLINE parseJSON #-} instance ToJSON a => ToJSON (Semigroup.Last a) where + toJSON (Semigroup.Last x) = toJSON x instance FromJSON (DebugConfigF Maybe) instance ToJSON (DebugConfigF Maybe)