git.iko.soy/typeable/aeson
on master help sign in
Fix toEncoding method for Either
527daebBas van Dijk
Data/Aeson/Types/Instances.hs+2−2
compare with master
unifiedsplit
@@ -142,9 +142,9 @@ instance (ToJSON a, ToJSON b) => ToJSON (Either a b) where
142 {-# INLINE toJSON #-}
142 {-# INLINE toJSON #-}
143
143
144 toEncoding (Left a) = Encoding $
144 toEncoding (Left a) = Encoding $
145− B.shortByteString "{\"left\":" <> builder a <> B.char7 '}'
145+ B.shortByteString "{\"Left\":" <> builder a <> B.char7 '}'
146 toEncoding (Right a) = Encoding $
146 toEncoding (Right a) = Encoding $
147− B.shortByteString "{\"right\":" <> builder a <> B.char7 '}'
147+ B.shortByteString "{\"Right\":" <> builder a <> B.char7 '}'
148 {-# INLINE toEncoding #-}
148 {-# INLINE toEncoding #-}
149
149
150instance (FromJSON a, FromJSON b) => FromJSON (Either a b) where
150instance (FromJSON a, FromJSON b) => FromJSON (Either a b) where