Fix the Semigroup.Last aeson instances (config breaking change :/)

2016-08-12 14:22:36 +02:00 · 2016-08-12 14:22:36 +02:00 · dd24316941
parent 0c6cc960cc
commit dd24316941
1 changed files with 3 additions and 0 deletions
--- 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)