From dd243169411abecf787e9cbec8da21c0925df359 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Fri, 12 Aug 2016 14:22:36 +0200 Subject: [PATCH] Fix the Semigroup.Last aeson instances (config breaking change :/) --- src/Language/Haskell/Brittany/Config/Types.hs | 3 +++ 1 file changed, 3 insertions(+) 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)